وهي الطريقة التي استخدمها في اعمالي وحدة نمطية وكود للربط داخل النموذج   انسخ الكود التالي والصقه في وحدة نمطية عامة Public Function CheckLinks(ByVal strDBPassword As String) As Boolean     On Error GoTo CheckLinksErr      Dim tdf As TableDef     Dim strNewMDB As String     Dim fd As FileDialog     For Each tdf In CurrentDb.TableDefs     If UCase(Left(tdf.Name, 6)) <> "COMPAS" Then     If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then     If Len(strNewMDB) = 0 Then        Call