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

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

如果要逐個(gè)修改控件的名稱，會(huì)費(fèi)時(shí)費(fèi)力。如何批量修改窗體中的控件名呢？

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

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

控件名稱修改成功