Access批量更改節(jié)點(diǎn)對(duì)象的名稱屬性

Access窗體可以分爲(wèi)5箇節(jié)，窗體頁(yè)眉，頁(yè)麵頁(yè)眉，主體，頁(yè)麵頁(yè)腳，窗體頁(yè)腳。

如何顯示及幾箇之間的區(qū)彆可以蔘考文章《Access顯示窗體頁(yè)眉，窗體頁(yè)腳；頁(yè)麵頁(yè)眉，頁(yè)眉頁(yè)腳》

在Access創(chuàng)建窗體時(shí)，會(huì)自動(dòng)給這些節(jié)點(diǎn)命名。我們也可以手動(dòng)更改這些節(jié)點(diǎn)的Name屬性

那如何批量修改所有窗體的名次屬性呢？如圖

允許下麵函數(shù)，遍歷所有窗體，逐箇窗體打開(kāi)再關(guān)閉來(lái)修改節(jié)點(diǎn)的名稱。Section 0和1 分彆代錶主體和窗體頁(yè)眉

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

如下圖，修改後，窗體主體更名爲(wèi)“Detail”，窗體頁(yè)眉更改爲(wèi)“FormHeader”