AllDatabaseDiagrams-Objekt (Access)

Die AllDatabaseDiagrams-Auflistung enthält ein AccessObject für jedes Datenbankdiagramm im CurrentData - oder CodeData-Objekt .

HinwBemerkungeneise

Das CurrentData- oder CodeData-Objekt verfügt über eine AllDatabaseDiagrams-Auflistung , die AccessObject-Objekte enthält, die Instanzen aller Datenbankdiagramme beschreiben, die durch CurrentData oder CodeData angegeben werden. Beispielsweise können Sie die AllDatabaseDiagrams-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 AllDatabaseDiagrams-Auflistung , indem Sie entweder auf das Objekt anhand des Namens oder durch Verweisen auf seinen Index innerhalb der Auflistung verweisen. Wenn Sie auf ein bestimmtes Datenbankdiagramm in der AllDatabaseDiagrams-Auflistung verweisen möchten, empfiehlt sich die Verwendung des Namens, da der Index sich ändern kann.

Die AllDatabaseDiagrams-Auflistung wird beginnend mit 0 (null) indiziert. Wenn Sie anhand des Indexes auf ein Datenbankdiagramm verweisen, lautet das erste Datenbankdiagramm AllDatabaseDiagrams(0), das zweite Datenbankdiagramm AllDatabaseDiagrams(1) usw.

Hinweis

Es ist nicht möglich, der AllDatabaseDiagrams-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 AllDatabaseDiagrams-Auflistung ausgegeben.

Sub AllDatabaseDiagrams() 
    Dim obj As AccessObject, dbs As Object 
    Set dbs = Application.CurrentData 
    ' Search for open AccessObject objects in 
    ' AllDatabaseDiagrams collection. 
    For Each obj In dbs.AllDatabaseDiagrams 
        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.