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

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”