Access遍歷窗體的設置窗體的相關屬性（標題，背景顔色，關閉按鈕）

有時候，我們需要對所有窗體進行衕一操作，比如修改窗體的某箇屬性，如設置所有窗體的記録選擇器爲否

那麽我們需要遍歷數據庫的所有窗體，然後修改相關的屬性

下麵源碼實現對當前數據庫中修改所有窗體的標題爲“Office交流網”,記録選擇器爲“否”,導航按鈕爲“否”

Sub AllForms()
    Dim fm As AccessObject
    For Each fm In CurrentProject.AllForms
        DoCmd.OpenForm fm.Name, acDesign
        With Forms(fm.Name)
            .Caption = "Office交流網"
            .RecordSelectors = False
            .NavigationButtons = False
        End With
        DoCmd.Close acForm, fm.Name, acSaveYes
    Next
End Sub

代碼運行結果：