جدول مرتبط

الاخت السائلة

استخدمى هذا الكود فى النموذج

ملحوظة تم تغيير اسماء الجدولين و مربعى النص الى الانجليزية

Function GetLinkedDBName(TableName As String)
   Dim db As DAO.Database, Ret
   On Error GoTo DBNameErr
   Set db = CurrentDb()
   Ret = db.TableDefs(TableName).Connect
   GetLinkedDBName = Right(Ret, Len(Ret) - (InStr _
      (1, Ret, "DATABASE=") + 8))
   Exit Function
DBNameErr:
   GetLinkedDBName = 0
End Function


Private Sub Form_Open(Cancel As Integer)
Me.txt1 = GetLinkedDBName("tbl1")
Me.txt2 = GetLinkedDBName("tbl2")

End Sub

شكرا ابو يوسف

ممكن ملف مرفق

بالتأكيد ممكن

و هذا هو الملف

الجداول المرتبطة.rar