Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Die AllViews-Auflistung enthält ein AccessObject für jede Ansicht im CurrentData - oder CodeData-Objekt .
Hinweise
Das CurrentData - oder CodeData-Objekt verfügt über eine AllViews-Auflistung , die AccessObject-Objekte enthält, die Instanzen aller von CurrentData oder CodeData angegebenen Ansichten beschreiben. Sie können z. B. die AllViews-Auflistung in Visual Basic aufzählen, um die Werte von Eigenschaften einzelner AccessObject-Objekte in der Auflistung festzulegen oder zurückzugeben.
Verweisen Sie auf ein einzelnes AccessObject-Objekt in der AllViews-Auflistung , indem Sie entweder auf das Objekt mit dem Namen oder auf seinen Index innerhalb der Auflistung verweisen. Wenn Sie auf ein bestimmtes Objekt in der AllViews-Auflistung verweisen möchten, empfiehlt sich die Verwendung des Namens, da der Index sich ändern kann.
Die AllViews-Auflistung wird beginnend mit 0 indiziert. Wenn Sie auf eine Sicht anhand ihres Index verweisen, ist die erste Ansicht AllViews(0), die zweite Ansicht ist AllViews(1) usw.
Hinweis
Verwenden Sie die IsLoaded-Eigenschaft jedes AccessObject-Objekts in der AllViews-Auflistung, um alle geöffneten Ansichten in der Datenbank aufzulisten. Anschließend können Sie die Name-Eigenschaft jedes einzelnen AccessObject-Objekts verwenden, um den Namen einer Ansicht zurückzugeben.
Es ist nicht möglich, der AllViews-Auflistung ein AccessObject-Objekt hinzuzufügen oder aus ihr zu löschen.
Beispiel
Im folgenden Beispiel wird der Name jedes geöffneten AccessObject-Objekts in der AllViews-Auflistung ausgegeben.
Sub AllViews()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in AllViews collection.
For Each obj In dbs.AllViews
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
Eigenschaften
Siehe auch
Support und Feedback
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.