面向:初學者。
目的:如果一年的數據較多,希望在分年的數據庫中保存數據。
知識點:
1.數據庫拆分。
2.文件查找技術。
3.文件復制。
4.鏈接表的刷新。
步驟:
1.將一些每年都要使用(修改,添加等)的表的名稱前兩個字母改為共同的(如:Or_業務人員名單,Or_收貨人名單等),注意不要是“MS”,“SW”,“US”等系統要使用的字母。
2.將數據庫拆分(假如前端名稱為:出口業務記錄.mdb,後端名稱為:出口業務記錄_dataOrigin.mdb。
3.在啟動窗體(假如名稱為:窗體1)中建立一文本框(假如名稱為:所屬年份)。
4.在窗體1的Open事件和所屬年份的AfterUpdate事件中調用下面的“查找文件”過程。
Public Sub 鏈接()
On Error GoTo LJ_error
Dim TABNAME As String
Dim Tab1 As TableDef
Dim MyPath As String
MyPath = Application.CurrentProject.Path
CurrentDb.TableDefs.Refresh'刷新當前數據庫中的表對象
If CurrentDb.TableDefs(15).Connect = ";
DATABASE=" & MyPath & "出口業務記錄_data" &
FORMs!窗體1!所屬年份 & ".mdb" Then
Exit Sub
Else
For Each Tab1 In CurrentDb.TableDefs
TABNAME = Tab1.Name
If Left(TABNAME, 2) <> "MS" And Left(TABNAME, 2)
<> "SW" And Left(TABNAME, 2) <> "Us" Then
If Left(TABNAME, 2) = "Or" Then
Tab1.Connect = ";DATABASE=" & MyPath &
"出口業務記錄_dataOrigin.mdb"
Else
Tab1.Connect = ";DATABASE=" & MyPath &
"出口業務記錄_data" & FORMs!窗體1!所屬年份 & ".mdb"
End If
Tab1.RefreshLink
End If
