<form id="hbx9t"></form>

<noframes id="hbx9t">

    <em id="hbx9t"><span id="hbx9t"></span></em>

        <noframes id="hbx9t"><address id="hbx9t"><th id="hbx9t"><progress id="hbx9t"></progress></th></address>
        office交流網--QQ交流群號

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

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

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

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

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