استيراد وتصدير جداول من و إلى قاعدة محمية بكلمة مرور

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

قم بالاطلاع علي هذا المثال

وقم بوضع قاعدة بيانات test في هذا المسار اولا

c:\test\test.mdb

بالتوفيق

link_table_with_pass.zip

test.zip

اخي Hisham_wz

مشكور على المرور والرد

بس ليس المطلوب ربط الجداول

وكذلك لا يزال يطالبني بكلمة مرور

المطلوب هو أن يقوم الكود بنسخ جدول من قاعدة البيانات الأولى إلى قاعدة البيانات الثانية للعلم ان كلا القاعدتين محميتان بكلمة مرور "123"

ارفقت لكم مثال للتعديل عليه إن إمكن لو سمحتم

تصدير واستيراد جداول.rar

يا مسهل!!

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

اخي الكريم

تفضل الملف بعد التعديل

قم بفك الضغط عن المجلد وضعه في المسار التالي :

c:\test\form.mdb

وتفضل الكود مع الشرح خطوة خطوة

Dim db1 As String ' تعريف متغير قاعدة البيانات الاولي
Dim db2 As String '  تعريف متغير قاعدة البيانات الثانية
Dim tname As String '  تعريف متغير اسم الجدول المراد نسخه
db1 = "c:\test\data1.mdb" '  مسار قاعدة البيانات الاولي
db2 = "c:\test\data2.mdb" ' مسار قاعدة البيانات الثانية
tname = [menu2] '  جعل قيمة اسم الجدول مستمده من اختيارك في القائمة المنسدلة في النموذج


If [Forms]![f1]![menu1] = "data1" Then '  نتحقق الاول انك قمت باختيار قاعدة البيانات الاولي
Dim wrkJet As Workspace ' للاتصال بقاعدة البيانات الاولي
Dim dbs As Database
Set wrkJet = DBEngine.Workspaces(0)
Set dbs = wrkJet.OpenDatabase(db1, False, False, ";PWD=123")
DoCmd.TransferDatabase acImport, "Microsoft Access", db1, acTable, tname, "temp_" & tname, False ' نقوم باستيراد الجدول


Set wrkJet = DBEngine.Workspaces(0) '  نقوم بالاتصال بقاعدة البيانات الثانية
Set dbs = wrkJet.OpenDatabase(db2, False, False, ";PWD=123")
DoCmd.TransferDatabase acExport, "Microsoft Access", db2, acTable, "temp_" & tname, tname, False ' نقوم بتصدير الجدول
DoCmd.DeleteObject acTable, "temp_" & tname '  نقوم بحذف الجدول المؤقت
MsgBox "تم التصدير بنجاح"
End If

'//////////////// نقوم بتنفيذ نفس الامر لو تحقق اننا نريد الاستيراد من قاعدة البيانات الثانية الي الاولي
'/////////////////////////////////////////////
'////////////////////////////////////////

If [Forms]![f1]![menu1] = "data2" Then '  نتحقق الاول انك قمت باختيار قاعدة البيانات الثانية
Set wrkJet = DBEngine.Workspaces(0) ' الاتصال بقاعدة البيانات الثانية
Set dbs = wrkJet.OpenDatabase(db2, False, False, ";PWD=123")
DoCmd.TransferDatabase acImport, "Microsoft Access", db2, acTable, tname, "temp_" & tname, False ' نقوم باستيراد الجدول


Set wrkJet = DBEngine.Workspaces(0) '  نقوم بالاتصال بقاعدة البيانات الاولي
Set dbs = wrkJet.OpenDatabase(db1, False, False, ";PWD=123")
DoCmd.TransferDatabase acExport, "Microsoft Access", db1, acTable, "temp_" & tname, tname, False ' نقوم بتصدير الجدول
DoCmd.DeleteObject acTable, "temp_" & tname '  نقوم بحذف الجدول المؤقت
MsgBox "تم التصدير بنجاح"
End If

وانصحك اخي الكريم عدم استخدام اللغة العربية في المسميات سواء الكائنات او الحقول

ارجو الدعاء لوالدي بالمغفرة والرحمة

بالتوفيق

test.zip

رحم الله والديك ... وغفر الله لوالديك

ووالدينا مع والديك

هذا هو المطلوب بالضبط

مشكور اخي هشام وبارك الله فيك