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

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

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”

    分享
    北京十一选五基本走势