Access遍歷窗體的設置窗體的相關屬性(標題,背景顔色,關閉按鈕)

2017-09-13 17:13:00
tmtony8
原創
1368

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

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


下麵源碼實現對當前數據庫中修改所有窗體的標題爲“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


代碼運行結果:



    分享