هذا الكود للأخ أبو هاجر :
Dim wrkJet As Workspace
Dim AbA As Database
Set wrkJet = DBEngine.Workspaces(0)
Set AbA = wrkJet.OpenDatabase("databasename.mdb", _
False, False, _
";PWD=123")
مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb"
و بذلك تكون حققت الاتصال مع القاعدة المحمية بكلمة سر 123 و تنفذ بعد ذلك ما تريد من أكواد
و من المهم كما ذكر أخونا أبو هاجر ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف
بعد انتهاء ما تريد من أكواد نفذ الأمر التالي
AbA.Close
Set wrkJet = Nothing
Set AbA = Nothing
==========
و بالمناسبة الكود كاملا كان لعمل ربط للجداول فى قاعدة محمية بكلمة سر و كان كالتالي :
Dim wrkJet As Workspace
Dim AbA As Database
Set wrkJet = DBEngine.Workspaces(0)
Set AbA = wrkJet.OpenDatabase("databasename.mdb", _
False, False, _
";PWD=123")
DoCmd.TransferDatabase acLink, "Microsoft Access", "databasename.mdb", acTable, "table1","table2"
مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb"
ووضع اسم الجدول الموجود الذي تريد الارتباط به مكان "table1"
والاسم الذي تريد تسمية الجدول به بعد الارتباط مكان "table2"
من المهم ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف
بعد الارتباط نفذ الأمر التالي
AbA.Close
Set wrkJet = Nothing
Set AbA = Nothing