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

Tabellen auflisten per VBA

Neben der Mglichkeit, die Tabellen einer Datenbank ber die Systemtabelle MSysObjects zu ermitteln, knnen Sie diese auch ber die entsprechende Auflistung ermitteln. Wie das per VBA funktioniert, zeigt der vorliegende Beitrag.

Die TableDefs-Auflistung benutzen

Die TableDefs-Auflistung enthlt alle Tabellen-Objekte der jeweiligen Access-Datenbank. Dazu gehren auch die nicht im Datenbankfenster angezeigten Tabellen wie beispielsweise versteckte oder Systemtabellen.

Mit der folgenden Prozedur geben Sie alle Tabellen der Datenbank aus:

Public Sub TabellenAuflisten()

    Dim db As DAO.Database

    Dim tdf As DAO.TableDef

    Set db = CurrentDb

    For Each tdf In db.TableDefs

        Debug.Print tdf.Name

    Next tdf

End Sub

Wenn Sie herausfinden mchten, ob die Tabelle eine verknpften Tabelle ist, berprfen Sie zustzlich die Connect-Eigenschaft der Tabelle. Ist diese keine leere Zeichenfolge, handelt es sich um eine verknpfte Tabelle.

© 2003-2015 André Minhorst Alle Rechte vorbehalten.