*كود* نسخ كائن من قاعدة أخرى بالكود

الاستيراد

On Error GoTo MYIMPORT_Err

'لاستيراد جدول بالبيانات
   DoCmd.TransferDatabase acImport, "Microsoft Access", "C:MM.MDB", acTable, "M", "MM", False

'لاستيراد جدول بدون البيانات

    DoCmd.TransferDatabase acImport, "Microsoft Access", "C:MM.MDB", acTable, "M", "MM", True
  'استعلام

    DoCmd.TransferDatabase acImport, "Microsoft Access", "C:MM.MDB", acQuery, "M", "MM", False
  'فورم

   DoCmd.TransferDatabase acImport, "Microsoft Access", "C:MM.MDB", acForm, "M", "MM", False
  'تقرير

    DoCmd.TransferDatabase acImport, "Microsoft Access", "C:MM.MDB", acReport, "M", "MM", False
  'موديول

    DoCmd.TransferDatabase acImport, "Microsoft Access", "C:MM.MDB", acModule, "M", "MM", False

MYIMPORT_Exit:
    Exit Function

MYIMPORT_Err:
    MsgBox Error$
    Resume MYIMPORT_Exit

و للتصدير

استبدل

acImport

ب

acExport

شكرآ جزيلا لمشرفنا الهمام وهذا بالضبط ما كنت أريد

لكم تحياتي والسلام عليكم ورحمة الله وبركاته(f)

الكود الذي تفضلت به أخي محمد طاهر أدى الغرض و لكن لإثراء الموضوع كيف لي أن أنسخ كل الجداول من قاعدة أخرى بدون معرفة أسماء الجداول في القاعدة الأخرى ألا يوجد أمر شامل للنسخ أم يجب على إستخدام ال * وكيف يكون ذلك ؟

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

بنفس طريقة اللوب التي استخدمتها عند الحذف

  Dim dbsLocal As Database
  Dim tblLocal As TableDef

  Set dbsLocal = CurrentDb
  For Each tblLocal In dbsLocal.TableDefs

  امر النسخ للجدول tblLocal 

  Next tblLocal
  MsgBox "تم حذف جميع جداول القاعدة"
End Sub

و في انتظار المثالين علي النسخ و الحذف كل فى موضوعه لتعم الفائدة

و شكرا