نقل جدول - نسخة قابلة للطباعة

كود :
Dim AccessApp As Object



Set AccessApp = CreateObject("Access.Application")

DoEvents



AccessApp.Visible = False

DoEvents



AccessApp.AutomationSecurity = 1

DoEvents



AccessApp.DoCmd.SetWarnings False

DoEvents



AccessApp.OpenCurrentDatabase "c:\db1.mdb"

DoEvents



'يتم النقل مع البيانات

'AccessApp.DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\db2.mdb", acTable, "Table1", "Table1", False

'DoEvents



'توضيح فقط

'acExport = 1

'acTable = 0



'يتم النقل بدون البيانات

AccessApp.DoCmd.TransferDatabase 1, "Microsoft Access", "c:\db2.mdb", 0, "Table1", "Table1", True

DoEvents



AccessApp.CloseCurrentDatabase

DoEvents



AccessApp.Quit

DoEvents



Set AccessApp = Nothing

DoEvents



MsgBox "تم نقل الجدول بنجاح"