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

2018-12-21 14:47:00
tmtony8
原创
1087

在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
    



控件名称修改成功

    分享