office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

access vba代码太长,换行,分行的写法

2022-01-19 10:45:00
tmtony8
原创
17146
在编程过程中,我们经常会遇到语句太长,无法完全查看,要拉动编辑窗口下方的滚动条才能完全阅读。
    由于一行代码太长,所以我们必须分开两行甚至多行,但不能破坏代码的结构性。

对于有sql语句,必须在句末+双引号+空格+下划线,下一句前面+&+空格+双引号

Private Sub 更新_Click()
    ‘DoCmd.RunSQL "update 表1 set 名称='桔子',数量=100, 日期=#2012-12-12#  where ID=3"
 
     DoCmd.RunSQL "update 表1 set 名称='桔子',数量=100, " _
               & "日期=#2012-12-12#,采购员=6 " _
               & "where ID=3"
End Sub
 
对于非sql,只需要+空格+_
Private Sub 清空_Click()
  '  If MsgBox("您确认要清空文本框值吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
    
    If MsgBox("您确认要清空文本框值吗?", vbOKCancel + _
                vbInformation, "提示") = vbOK Then
        Me.Text0 = ""
    End If
End Sub
分享