access將SQL語(yǔ)句從查詢(xún)複製到VBA

在access vba中，因爲(wèi)要對(duì)錶中數(shù)據(jù)的操作，編寫(xiě)代碼經(jīng)常需要調(diào)用SQL語(yǔ)句。

我們通常不會(huì)在VBA代碼中鍵入複雜的查詢(xún)語(yǔ)句，而是在查詢(xún)的設(shè)計(jì)視圖中創(chuàng)建一箇查詢(xún)，將其切換到SQL視圖，複製併粘貼到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