Tabeloversigt

Du kan prøve at lege med denne:

SELECT Name, Connect, Database, ForeignName FROM MSysObjects WHERE Database Is Not Null OR Connect Is Not Null;

Den angiver de sammenkædede tabeller, du har i din database.

Prøv denne:

Sub DebugLink()
  Dim Tdf As TableDef
  Dim Tname As String
  Debug.Print \"--------------------------------------------------\"
  For Each Tdf In CurrentDb.TableDefs
    Tname = Tdf.Name
    If Left(Tname, 4) <> \"MSys\" Then
      If Tdf.Connect <> \"\" Then
        Debug.Print Tname; Tab(25); Tdf.Connect
      End If
    End If
  Next Tdf
End Sub

Lukket grundet alder.