共用方式為


Access) (AllDatabaseDiagrams 物件

AllDatabaseDiagrams 集合包含 CurrentDataCodeData 物件中每個資料庫圖表的 AccessObject

註解

CurrentDataCodeData 物件都有 AllDatabaseDiagrams 集合包含說明 CurrentDataCodeData 所指定的所有資料庫圖表的執行個體的 AccessObject 物件。 例如,您可以列舉 AllDatabaseDiagrams 集合在 Visual Basic 中設定或傳回集合中的個別的 AccessObject 物件的屬性值。

參考AllDatabaseDiagrams集合中的個別AccessObject物件,方法是依名稱參照物件,或參照集合中的索引。 如果您想要在 AllDatabaseDiagrams 集合中特定的物件參照,最好是因為資料庫圖表的集合索引可能會變更依名稱參照至資料庫圖表。

AllDatabaseDiagrams 集合是從零開始編列索引。 若您依據其索引參照的資料庫圖表、 第一個資料庫圖表是 AllDatabaseDiagrams(0)、 第二個資料庫圖表是 AllDatabaseDiagrams(1),依此類推。

注意事項

您無法新增或刪除 AccessObject 物件從 AllDatabaseDiagrams 集合。

範例

下列範例列印在 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 支援與意見反應