Access遍历窗体的设置窗体的相关属性(标题,背景颜色,关闭按钮)

2017-09-13 17:13:00
黄善超
原创
600

有时候,我们需要对所有窗体进行同一操作,比如修改窗体的某个属性,如设置所有窗体的记录选择器为否

那么我们需要遍历数据库的所有窗体,然后修改相关的属性


下面源码实现对当前数据库中修改所有窗体的标题为“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


代码运行结果:



    分享