|
Option Compare Database
Option Explicit
Function Import_Objects_From_Daily_Invoices( strpath as string, strMDB as string)
Dim db As DAO.Database
Dim tb As DAO.TableDef
Dim qd As DAO.QueryDef
Dim rec As DAO.Recordset
Dim dc As DAO.Document
Call Clear_CurrentDB_Objects
Set db = DAO.OpenDatabase(strPath & "" & strMDB)
For Each tb In db.TableDefs
If InStr(tb.Name, "MSys") = 0 Then
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath & "" & strMDB, acTable, tb.Name, tb.Name, False
End If
Next
For Each qd In db.QueryDefs
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath & "" & strMDB, acQuery, qd.Name, qd.Name, False
Next
With db.Containers!Forms
For Each dc In .Documents
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath & "" & strMDB, acForm, dc.Name, dc.Name, False
Next
End With
With db.Containers!Reports
For Each dc In .Documents
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath & "" & strMDB, acReport, dc.Name, dc.Name, False
Next
End With
With db.Containers!Scripts
For Each dc In .Documents
If dc.Name <> "AutoExec" Then
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath & "" & strMDB, acMacro, dc.Name, dc.Name, False
End If
Next
End With
With db.Containers!Modules
For Each dc In .Documents
DoCmd.TransferDatabase acImport, "Microsoft Access", strPath & "" & strMDB, acModule, dc.Name, dc.Name, False
Next
End With
db.Close
Set db = Nothing
RefreshDatabaseWindow
End Function
|
收 藏
投 稿
繁 体
RSS 
欢迎在本站发布信息，在线投递稿件
我要投稿
打印本文
推荐本文
加入收藏
返回顶部
关闭窗口
