R6.34 Tabellenverknüpfungen darstellen

Aufgabe

Mittels VBA sollen die Pfade aller verknüpften Tabellen angezeigt werden.

Lösung

Wir verwenden die Tables-Auflistung des ADOX-Catalog-Objekts und prüfen auf die Eigenschaften Jet OLEDB:Link Datasource und Jet OLEDB:Link Provider String.

Quelltext

Sub Verbindungen_Auflisten()
Dim catalog As New ADOX.catalog
Dim tb As ADOX.table

    catalog.ActiveConnection = Application.CurrentProject.Connection
    For Each tb In catalog.Tables
      If tb.Properties("Jet OLEDB:Link Datasource") <> "" Then
        Debug.Print tb.name & " -> " & tb.Properties("Jet OLEDB:Link Datasource")
      End If
      If tb.Properties("Jet OLEDB:Link Provider String") <> "" Then Debug.Print tb.name & " -> " & tb.Properties("Jet OLEDB:Link Provider String") End If Next ...

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial