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”