• <strong id="yd969"><track id="yd969"></track></strong>

    <li id="yd969"></li>
  • <rp id="yd969"><object id="yd969"></object></rp>
  • office交流網--QQ交流群號

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

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

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

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

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