access將SQL語(yǔ)句從查詢復(fù)制到VBA

在access vba中，因?yàn)橐獙?duì)表中數(shù)據(jù)的操作，編寫代碼經(jīng)常需要調(diào)用SQL語(yǔ)句。

我們通常不會(huì)在VBA代碼中鍵入復(fù)雜的查詢語(yǔ)句，而是在查詢的設(shè)計(jì)視圖中創(chuàng)建一個(gè)查詢，將其切換到SQL視圖，復(fù)制并粘貼到VBA中。

詳細(xì)按鈕代碼：

Private Sub cmdSql2Vba_Click()

    Dim strSql As String
    'Purpose:   Convert a SQL statement into a string to paste into VBA code.
    Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"
    
    If IsNull(Me.txtSql) Then
        Beep
    Else
        strSql = Me.txtSql
        strSql = Replace(strSql, """", """""")  'Double up any quotes.
        strSql = Replace(strSql, vbCrLf, strcLineEnd)
        strSql = "strSql = """ & strSql & """"
        Me.txtVBA = strSql
        Me.txtVBA.SetFocus
        RunCommand acCmdCopy
    End If

End Sub