Beziehungen auflisten mit VBA

Mit VBA können Sie nicht nur die Tabellen einer Datenbank auflisten, sondern auch weitere Eigenschaften von TableDef-Objekten abfragen. Informationen über die Beziehungen zwischen Tabellen finden Sie dort allerdings nicht: Dazu müssen Sie eine andere Auflistung als die Auflistung TableDefs verwenden, wie vorliegender Beitrag zeigt.

Die Relations-Auflistung

Informationen über die Beziehungen zwischen den Tabellen einer Datenbank erhalten Sie über die Relations-Auflistung. Der folgende Code enthält eine Prozedur, mit der Sie alle Beziehungen der aktuellen Datenbanken im Testfenster ausgeben:

Public Sub BeziehungenAuflisten()

Dim db As DAO.Database

Dim rel As DAO.Relation

Set db = CurrentDb

For Each rel In db.Relations

Debug.Print rel.Name, rel.Table, rel.ForeignTable

Next rel

Set db = Nothing

End Sub

Für die Nordwind-Datenbank gibt die Auflistung beispielsweise den folgenden Ausdruck aus:

Beziehungenauflisten

{083E4FF9-B94E-4D14-91AE-E4130862D8C2} Kategorien Artikel

{307C9E7D-DEA9-4E45-8EB0-DA990E82AD5A} Personal Bestellungen

{88C0E157-6928-46E4-8896-6F1E969C79F0} Bestellungen Bestelldetails

{8A2158AC-B46A-49E1-B7BE-C6078ECEE019} Kunden Bestellungen

{B5EBE2FB-9C17-4263-88D7-1F73A51F08EA} Versandfirmen Bestellungen

{B71FD63C-8842-4F3F-BD74-9EE604701653} Lieferanten Artikel

{EF7D9EFE-8F37-4DA7-ADAF-D8337895B077} Artikel Bestelldetails