Access批量修改控件的控件名稱

2018-12-21 14:47:00
tmtony8
原創
1880

在Access窗體設計中,我們有時需要對控件按一定的規律命名。方便我們後麵做一些動態的批量的操作。

如果要逐箇修改控件的名稱,會費時費力。如何批量修改窗體中的控件名呢?


如下圖,批量修改窗體中文本框的控件名



運行以下代碼:窗體上所有文本框用 前綴t 加步長爲2 來依次命名。

Dim ctl As Control
    Dim i As Integer
    DoCmd.OpenForm "窗體1", acDesign, , acHidden
    i = 1
    Debug.Print Forms("窗體1").Controls.Count
    For Each ctl In Forms("窗體1").Controls     '循環更改窗體控件的字體大小
   
        If ctl.ControlType = acTextBox Then
            ctl.Name = "t" & i
            i = i + 2
        End If
    Next    
    
    DoCmd.Close OpenForm, "窗體1", acSaveYes
    



控件名稱修改成功

    分享