閱讀英文

共用方式為


Access) (AllForms 物件

AllForms集合包含CurrentProject 或 CodeProject物件中每個表單的AccessObject物件。

註解

CurrentProjectCodeProject 物件具有一個 AllForms 集合,該集合包含描述資料庫中所有表單範例的 AccessObject 物件。 例如,可以在 Visual Basic 中列舉 AllForms 集合來設定或傳回集合中個別 AccessObject 物件的屬性值。

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

AllForms 集合的索引是從零開始。 如果透過索引參照表單,第一個表單是 AllForms(0),第二個表單是 AllForms(1),依此類推。

注意

若要列出資料庫中所有開啟的表單,請使用AllForms集合中每個AccessObject物件的IsLoaded屬性。 您可以使用 名稱 每個個別的 AccessObject 屬性 若要傳回表單的名稱的物件。

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

範例

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

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

下列範例示範如何防止使用者直接從流覽窗格開啟特定表單。

'Don't let this form be opened from the Navigator
If Not CurrentProject.AllForms(cFormUsage).IsLoaded Then
    MsgBox "This form cannot be opened from the navigation pane.", _
        vbInformation + vbOKOnly, "Invalid form usage"
    Cancel = True
    Exit Sub
End If

屬性

另請參閱

支援和意見反應

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