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

在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
    

控件名称修改成功