تصدير جميع جداول قاعدة خارجية الى قاعدة خارجية اخرى

[kanory]

السلام عليكم ورحمة الله وبركاته .... طاب مسائكم

اريد تصدير جميع جداول قاعدة خارجية الى قاعدة خارجية أخرى من خلال قاعدة ثالثة ....... ولكم الشكر سلفا ... المرفق يوضح المطلوب اكثر .

kanory.rar

[صالح حمادي]

السلام عليكم

تفضل هذا التعديل على الكود الذي تستعمله:

Dim strTargetDB As String
Dim tbl As TableDef
Dim app As Access.Application

strTargetDB = Me.txtPath1

Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase (Me.txtPath)
app.Visible = False
 
For Each tbl In CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "MSys" Then
app.DoCmd.TransferDatabase acExport, "Microsoft Access", strTargetDB, acTable, tbl.Name, tbl.Name, False
End If
Next

و هذا ملفك بعد التعديل عليه

موفق إن شاء الله

1‏‏kanory.rar

[kanory]

أخي العزيز صالح 

السلام عليكم ........ اشكرك على الرد رغم مشاغلك ....... لكن لم يقم البرنامج بتصدير الجداول ....... هل جربته وعمل معك .... ممكن السبب من جهازي .... والله أعلم ...... بارك الله في جهدك معي

[صالح حمادي]

البرنامج يعمل معي 100%

جرب إنشاء قاعدة فارغة (mdb) و قم بتصدير الجداول لها من خلال قاعدة أخرى

[kanory]

لم يعمل معي بعد محاولات عدة ....... ولا أعلم السبب

[kanory]

اخي الكريم جرب على القاعدة المرسلة لك ..... وأعلمني بالنتيجة

kanory.rar

[صالح حمادي]

السلام عليكم

نعم أخي كان هناك خطأ بسيط يمنع المرفق من العمل مع كل الملفات و لكنني أصلحته الآن تفضل:

Dim strTargetDB As String
Dim tbl As TableDef
Dim app As Access.Application

strTargetDB = Me.txtPath1

Set app = CreateObject("Access.Application")
app.OpenCurrentDatabase (Me.txtPath)
app.Visible = False
 
For Each tbl In app.CurrentDb.TableDefs
If Left(tbl.Name, 4) <> "MSys" Then
app.DoCmd.TransferDatabase acExport, "Microsoft Access", strTargetDB, acTable, tbl.Name, tbl.Name, False
End If
Next
MsgBox "لقد تم تصدير جميع الجداول بنجاح"

و هذا هو المرفق:

 

1‏‏kanory.rar

[kanory]

أشكرك أخي صالح .... بارك الله فيك ..... جزاك الله خيرا في الدنيا والآخرة ....ز. تم المطلوب على أكمل وجه .. يا وجه السعد 

[صالح حمادي]

2 ساعات مضت, kanory said:

أشكرك أخي صالح .... بارك الله فيك ..... جزاك الله خيرا في الدنيا والآخرة ....ز. تم المطلوب على أكمل وجه .. يا وجه السعد 

العفو أخي الكريم