全部显示

AllDatabaseDiagrams 集合

多个对象 AllDatabaseDiagrams AccessObject

AllDatabaseDiagrams 集合包含 CurrentData 或 CodeData 对象中每个数据库图表的 AccessObject 对象。

使用 AllDatabaseDiagrams 集合

CurrentData 或 CodeData 对象具有一个 AllDatabaseDiagrams 集合，其中包含描述由 CurrentData 或 CodeData 指定的所有数据库图表的实例的 AccessObject 对象。例如，可以在 Visual Basic 中列举 AllDatabaseDiagrams 集合来设置或返回该集合中单个 AccessObject 对象的属性值。

提示   For Each...Next 语句对列举集合非常有用。

可以引用 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