office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

access vba代碼太長,換行,分行的寫法

2022-01-19 10:45:00
tmtony8
原創
26511
在編程過程中,我們經常會遇到語句太長,無法完全查看,要拉動編輯窗口下方的滾動條纔能完全閲讀。
    由於一行代碼太長,所以我們必鬚分開兩行甚至多行,但不能破壞代碼的結構性。

對於有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
分享