Microsoft Access Programmierrezepte

R6.27 Die Beziehungen zwischen den Tabellen analysieren

Aufgabe

Mittels VBA sollen die Beziehungen zwischen den einzelnen Tabellen der aktuellen Datenbank analysiert werden.

Lösung

Wir nutzen die ADOX-Objekte, um die Beziehungen zu untersuchen und aufzulisten.

Oberfläche

Wir geben die Daten im Direktfenster aus, alternativ könnten Sie auch ein Listenfeld verwenden.

Quelltext

Public Sub BeziehungenAuflisten()
Dim catalog As New ADOX.catalog
Dim conn As New ADODB.Connection
Dim tb As ADOX.table
Dim key As ADOX.key
Dim col As ADOX.column

  catalog.ActiveConnection = Application.CurrentProject.Connection

Für alle Tabellen:

For Each tb In catalog.Tables

Schlüssel durchsuchen:

For Each key In tb.Keys

Fremdschlüssel vorhanden?

If key.RelatedTable <> "" Then

Ausgabe: ...