为控件写入指定代码

时　间:2021-03-07 15:32:04
作　者:某.强人   ID：73257  城市：长沙
摘　要: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

附   件:

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

图   示: