AllDatabaseDiagrams Collection (Access)
The CurrentData or CodeData object has an AllDatabaseDiagrams collection containing AccessObject objects that describe instances of all database diagrams specified by CurrentData or CodeData. For example, you can enumerate the AllDatabaseDiagrams collection in Visual Basic to set or return the values of properties of individual AccessObject objects in the collection.
You can refer to an individual AccessObject object in the AllDatabaseDiagrams collection either by referring to the object by name, or by referring to its index within the collection. If you want to refer to a specific object in the AllDatabaseDiagrams collection, it's better to refer to the database diagram by name because a database diagram's collection index may change.
The AllDatabaseDiagrams collection is indexed beginning with zero. If you refer to a database diagram by its index, the first database diagram is AllDatabaseDiagrams(0), the second database diagram is AllDatabaseDiagrams(1), and so on.
You can't add or delete an AccessObject object from the AllDatabaseDiagrams collection.
The following example prints the name of each open AccessObject object in the AllDatabaseDiagrams collection.
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