AllDatabaseDiagrams 对象 (Access)

  • 项目

AllDatabaseDiagrams 集合中包含 AccessObjectCurrentData 或 CodeData 对象中的每个数据库关系图。

备注

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

通过按名称引用对象或引用其集合中的索引来引用 AllDatabaseDiagrams 集合中的单个 AccessObject 对象。 如果要引用 AllDatabaseDiagrams 集合中特定的对象，是因为数据库关系图的集合索引可能会更改数据库关系图中按名称引用更好一些。

AllDatabaseDiagrams 集合是从零开始编制索引。 如果在数据库图表中引用的索引时，第一个数据库关系图中是 AllDatabaseDiagrams(0)，第二个数据库关系图中的 AllDatabaseDiagrams(1)，依此类推。

注意

您不能添加或从 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

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。