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

代码运行结果：