AllDatabaseDiagrams 集合
内容
AllDatabaseDiagrams 集合包含 CurrentData 或 CodeData 对象中每个数据库图表的 AccessObject 对象。
使用 AllDatabaseDiagrams 集合
CurrentData 或 CodeData 对象具有一个 AllDatabaseDiagrams 集合，其中包含描述由 CurrentData 或 CodeData 指定的所有数据库图表的实例的 AccessObject 对象。例如，可以在 Visual Basic 中列举 AllDatabaseDiagrams 集合来设置或返回该集合中单个 AccessObject 对象的属性值。
可以引用 AllDatabaseDiagrams 集合中的单个 AccessObject 对象，方法是：按照名称引用对象，或引用集合中对象的索引。如果要引用 AllDatabaseDiagrams 集合中特定的对象，最好按照名称引用数据库图表，因为数据库图表的集合索引可能会更改。
AllDatabaseDiagrams 集合的索引是从零开始的。如果通过索引来引用数据库图表，则第一个数据库图表是 AllDatabaseDiagrams(0)，第二个数据库图表是 AllDatabaseDiagrams(1)，依此类推。
注释
| ? | AllDatabaseDiagrams 集合仅包含位于 Microsoft Access 项目 (.adp) 内的 AccessObject 对象。Microsoft Access 数据库 (.mdb) 中不含任何数据库图表。 |
| ? | 若要列出项目中所有打开的数据库图表，可使用 AllDatabaseDiagrams 集合中每个 AccessObject 对象的 IsLoaded 属性。然后，可使用每个单独的 AccessObject 对象的 Name 属性返回数据库图表的名称。 |
无法在 AllDatabaseDiagrams 集合中添加或删除 AccessObject 对象。
下面的示例将打印 AllDatabaseDiagrams 集合中每个打开的 AccessObject 对象的名称。
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