تعقيب بالنسبة للكود الذي ارفقتة بعد مراجعتي لة فهو يقوم بفتح القاعدة اذا كانت مقفلة بكلمة مرور
Function OpenPasswordProtectedDB()
Dim strAccessExe As String, strDB As String
'Define as Static so the instance of Access
'doesn't close when the procedure ends.
Static acc As Access.Application
Dim db As DAO.Database
Dim strDbName As String
'The path and filename of the DB to open.
strDbName = GetDBDir & "OtherDatabase.mdb"
Set acc = New Access.Application
acc.Visible = True
Set db = acc.DBEngine.OpenDatabase(strDbName, False, False, ";PWD=pswrd")
acc.OpenCurrentDatabase strDbName
acc.RunCommand acCmdAppMaximize
db.Close
Set db = Nothing
End Function
حيث اننى لم انتبة الى PWD=pswrd هذة الكلمة فقط ضع 123 بدل (pswrd)
اخى محمد طاهر
بالنسبة للكود الخاص بفتح قاعدة بها ربط للجداول فى قاعدة محمية بكلمة سر فهو يعمل
اما اول كود لم يعمل معى عند ما تكون القاعدة محمية بكلمة مرور لا اعرف ما السبب