Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Beziehungen auflisten mit VBA

Mit VBA knnen 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 mssen 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 enthlt 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

Fr 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

© 2003-2015 André Minhorst Alle Rechte vorbehalten.