面向:初學者
目的:假如一年的數據較多,希望在分年的數據庫中保存數據
知識點:1.數據庫拆分
2.文件查找技術
3.文件復制
4.鏈接表的刷新
步驟: 1.將一些每年都要使用(修改,添加等)的表的名稱前兩個字母改為共同的(如:Or_業務人員名單,Or_收貨人名單等),注重不要是"MS","SW","US"等系統要使用的字母
2.將數據庫拆分(假如前端名稱為:出口業務記錄.mdb,後端名稱為:出口業務記錄_dataOrigin.mdb
3.在啟動窗體(假如名稱為:窗體1)中建立一文本框(假如名稱為:所屬年份)
4.在窗體1的Open事件和所屬年份的AfterUpdate事件中調用下面的"查找文件"過程.
PublicSub鏈接()
OnErrorGoToLJ_error
DimTABNAMEAsString
DimTab1AsTableDef
DimMyPathAsString
MyPath=Application.CurrentProject.Path
CurrentDb.TableDefs.Refresh '刷新當前數據庫中的表對象
IfCurrentDb.TableDefs(15).Connect=";DATABASE="&MyPath&"出口業務記錄_data"&FORMs!窗體1!所屬年份&".mdb"Then
ExitSub
Else
ForEachTab1InCurrentDb.TableDefs
TABNAME=Tab1.Name
IfLeft(TABNAME,2)<>"MS"AndLeft(TABNAME,2)<>"SW"AndLeft(TABNAME,2)<>"Us"Then
IfLeft(TABNAME,2)="Or"Then
Tab1.Connect=";DATABASE="&MyPath&"出口業務記錄_dataOrigin.mdb"
Else
Tab1.Connect=";DATABASE="&MyPath&"出口業務記錄_data"&FORMs!窗體1!所屬年份&".mdb"
EndIf
Tab1.RefreshLink
EndIf
NextTab1
MsgBoxFORMs!窗體1!所屬年份&"年的基礎數據庫連接成功!"
EndIf
Exit_LJ_error:
ExitSub
LJ_error:
MsgBoxFORMs!窗體1!所屬年份&"年的後端數據庫文件不存在!"
ResumeExit_LJ_error
EndSub
PublicSub查找文件()
DimMyPathAsString
DimfsAsVariant
DimTABNAMEAsString
DimTab1AsTableDef
MyPath=Application.CurrentProject.Path