30-06-15, 11:06 PM
01-07-15, 12:02 PM
أهلا أخي الكريم , هذا كود نقل جدول من قاعدة بيانات أكسس إلى أخرى مع بياناته أو من غير بياناته فقط الجدول :
كود :
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 "تم نقل الجدول بنجاح"