在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

控件名称修改成功

学习更多Access技巧源码，请关注Office交流网： http://www.office-cn.net