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

在Access窗體設(shè)計中，我們有時需要對控件按一定的規(guī)律命名。方便我們後麵做一些動態(tài)的批量的操作。

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

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

運行以下代碼：窗體上所有文本框用 前綴t 加步長爲(wèi)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     '循環(huán)更改窗體控件的字體大小
   
        If ctl.ControlType = acTextBox Then
            ctl.Name = "t" & i
            i = i + 2
        End If
    Next    
    
    DoCmd.Close OpenForm, "窗體1", acSaveYes
    

控件名稱修改成功