安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

2018-12-21 14:47:00
黄善超
原创
380

在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
    



控件名称修改成功

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:8.00MB
    PHP 执行时间:0.18
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假