office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

Access批量更改節點對象的名稱屬性

2019-12-12 12:14:00
tmtony8
原創
657

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”

    分享