AllTables-Objekt (Access)
Die AllTables-Auflistung enthält ein AccessObject für jede Tabelle im CurrentData - oder CodeData-Objekt .
Das CurrentData- oder CodeData-Objekt verfügt über eine AllTables-Auflistung , die AccessObject-Objekte enthält, die Instanzen aller Tabellen beschreiben, die durch CurrentData oder CodeData angegeben werden. Beispielsweise können Sie die AllTables-Auflistung in Visual Basic aufzählen, um die Werte der Eigenschaften einzelner AccessObject-Objekte in der Auflistung festzulegen oder zurückzugeben.
Verweisen Sie auf ein einzelnes AccessObject-Objekt in der AllTables-Auflistung , indem Sie entweder anhand des Namens auf das Objekt verweisen oder auf seinen Index innerhalb der Auflistung verweisen. Wenn Sie auf eine bestimmte Tabelle in der AllTables-Auflistung verweisen möchten, empfiehlt sich die Verwendung des Namens, da der Index sich ändern kann.
Die AllTables-Auflistung wird beginnend mit 0 indiziert. Wenn Sie auf eine Tabelle über ihren Index verweisen, ist AllTables(0) die erste Tabelle, AllTables(1) die zweite Tabelle usw.
Hinweis
Verwenden Sie zum Auflisten aller geöffneten Tabellen in der Datenbank die IsLoaded-Eigenschaft jedes AccessObject-Objekts in der AllTables-Auflistung . Sie können dann die Name-Eigenschaft jedes einzelnen AccessObject-Objekts verwenden, um den Namen einer Tabelle zurückzugeben.
Es ist nicht möglich, der AllTables-Auflistung ein AccessObject-Objekt hinzuzufügen oder aus ihr zu löschen.
Im folgenden Beispiel wird der Name jedes geöffneten AccessObject-Objekts in der AllTables-Auflistung ausgegeben.
Sub AllTables()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllTables collection.
For Each obj In dbs.AllTables
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.