为控件写入指定代码-某.强人
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


为控件写入指定代码

发表时间:2021/3/7 15:32:04 评论(1) 浏览(2677)  评论 | 加入收藏 | 复制
   
摘 要:InsertText 方法。
正 文:

一、学友问题描述:

      软件已经完成大半,但是现在要为许多文本框写入同一段代码,工程量较大,有什么好的解决方法吗?


二、解决方案:

      之前也没遇到过这样的问题,到网上找了一圈发现,可以使用InsertText 方法解决。代码如下(可使用For Each遍历完成批量修改):

Private Sub Command0_Click()
      Dim frm As Form
      Dim mdl As Module
      DoCmd.OpenForm Me.List0, acDesign '需要以设计视图打开
      Set frm = Forms(Me.List0)
      frm.HasModule = True
      Set mdl = frm.Module
      mdl.InsertText "Private Sub " & Me.text1 & "_Click()" & vbCrLf _
                       & vbTab & "" & Me.Text3 & "" & vbCrLf & "End Sub"
               '写的点击事件,具体按需修改
               'vbCrLf 该常量将强制回车符和换行符。
      DoCmd.Save     '避免出现保存提示框
      DoCmd.Close acForm, Me.List0
End Sub


附   件:

点击下载此附件这里的示例是根据批量更改控件名称修改


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
利用FOR EACH CONTROL的方法来清除控件的值  【duwei  2010/3/20】
语句For Each in ... next 详解用法  【风行  2011/9/3】
ACCESS表达式生成器  【收藏整理  2013/5/30】
遍历表,遍历字段,遍历内容  【在水一方  2014/5/16】
如何遍历ACCESS中的窗体  【lzk  2015/12/24】
遍历组合框中所有值  【易勋  2019/1/24】
用For Each遍历表字段名及值  【  2019/8/22】
常见问答
技术分类
相关资源
文章搜索
关于作者

某.强人

文章分类

文章存档

友情链接