office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access批量更改节点对象的名称属性

2019-12-12 12:14:00
tmtony8
原创
420

Access窗体可以分为5个节,窗体页眉,页面页眉,主体,页面页脚,窗体页脚。

如何显示及几个之间的区别可以参考文章《Access显示窗体页眉,窗体页脚;页面页眉,页眉页脚

在Access创建窗体时,会自动给这些节点命名。我们也可以手动更改这些节点的Name属性

那如何批量修改所有窗体的名次属性呢?如图


允许下面函数,遍历所有窗体,逐个窗体打开再关闭来修改节点的名称。Section 0和1 分别代表主体和窗体页眉

Sub ChangeSectionName()
 On Error Resume Next
    For Each fm In CurrentProject.AllForms
        DoCmd.OpenForm fm.Name, acDesign
        Dim frm As Form
        
        Set frm = Forms(fm.Name)
'        Debug.Print Me.Section(0).Name
        frm.Section(0).Name = "Detail"
        frm.Section(1).Name = "FormHeader"
        DoCmd.Close acForm, fm.Name, acSaveYes
    Next
End Sub



如下图,修改后,窗体主体更名为“Detail”,窗体页眉更改为“FormHeader”

    分享