علاء محمد علي

معي هذه الطريقة التي تشترط وجود الجداول في نفس مجلد الواجهات
ضع هذه الوظيفة في موديول ثم قم باستدعائها في النموذج الافتتاحي في حدث عند التحميل
Public Function connect()
Dim dada
Dim wrkJet0 As Workspace
Dim dbs0 As DAO.Database
adad = CurrentProject.Path & "\DATA.accdb"
Set wrkJet0 = DBEngine.Workspaces(0)
Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "PASSWORD")
Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Set db = CurrentDb()
    For Each tdf In db.TableDefs
        If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then
         On Error Resume Next
            tdf.Connect = ";DATABASE=" & adad
            tdf.RefreshLink
        End If
    Next
End Function
 
عليك تغيير كلمة PASSWORD بكلمة السر الخاصة بقاعدة بيانات الجداول
ولاحظ تن قاعدة البيانات عندي اسمها Data.accdb. وعليك كتابة اسم قاعدة البيانات الخاصة بك بدلا منها
اتمنى ان تكون الطريقة مفيدة لك
اخوك علاء