共用方式為


Access) (AllViews 物件

AllViews集合包含CurrentDataCodeData物件中每個檢視的AccessObject

註解

CurrentDataCodeData 物件具有一 AllViews 集合,該集合包含描述由 CurrentDataCodeData 指定的所有檢視範例的 AccessObject 物件。 例如,可以在 Visual Basic 中列舉 AllViews 集合來設定或傳回該集合中個別 AccessObject 物件的屬性值。

參照AllViews集合中的個別AccessObject物件,方法是依名稱參照物件,或參照集合中的索引。 如果要參照 AllViews 集合中的特定的物件,利用名稱參照檢視會更好,因為檢視的集合索引可能會變更。

AllViews 集合的索引是從零開始。 如果您依索引參照檢視表,第一個檢視是 AllViews (0) ,第二個檢視是 AllViews (1) ,依此類推。

注意事項

若要列出資料庫中所有開啟的檢視,請使用AllViews集合中每個AccessObject物件的IsLoaded屬性。 然後,您可以使用每個個別AccessObject物件的Name屬性來傳回檢視的名稱。

無法從 AllViews 集合中新增或刪除 AccessObject 物件。

範例

下列範例列印在 AllViews 集合中每個開啟的 AccessObject 物件名稱。

Sub AllViews() 
    Dim obj As AccessObject, dbs As Object 
    Set dbs = Application.CurrentData 
    ' Search for open AccessObject objects in AllViews collection. 
    For Each obj In dbs.AllViews 
        If obj.IsLoaded = True Then 
            ' Print name of obj. 
            Debug.Print obj.Name 
        End If 
    Next obj 
End Sub

屬性

另請參閱

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應