جزاك الله خيرا اخي الكريم
ولكن المشكلة هي ان الكود يقوم بحذف الجدول في القاعدة المصدر اليها ويستبدله بالجدول المصدر منه وهذا ما ظهر لي من خلال الرساله المرفقه
الا اذا كان هناك خطأ في استخدامي للكود
حيث قمت بعد اختيار القاعده بوضع الكود التالي لزر امر في حدث عند النقر
Dim ctable
DoCmd.TransferDatabase acExport, "Microsoft Access", txtPath, ctable, "table1", "table2"
حيث table 1 الجدول المصدر منه table 2 الجدول المصدر اليه في القاعدة الاخرى
export_error.rar