一、学友问题描述:
软件已经完成大半,但是现在要为许多文本框写入同一段代码,工程量较大,有什么好的解决方法吗?
二、解决方案:
之前也没遇到过这样的问题,到网上找了一圈发现,可以使用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
附 件:
点击下载此附件(这里的示例是根据批量更改控件名称修改)
图 示: