面向:初學者
目的:如果一年的數據較多,希望在分年的數據庫中保存數據
知識點: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
Next Tab1
MsgBox FORMs!窗體1!所屬年份 & "年的基礎數據庫連接成功!"
End If
Exit_LJ_error:
Exit Sub
LJ_error:
MsgBox FORMs!窗體1!所屬年份 & "年的後端數據庫文件不存在!"
Resume Exit_LJ_error
End Sub
Public Sub 查找文件()
Dim MyPath As String
Dim fs As Variant
Dim TABNAME As String
Dim Tab1 As TableDef
MyPath = Application.CurrentProject.Path
