access將SQL語句從查詢復制到VBA

2019-10-21 15:52:00
Allen Browne
翻譯
336

在access vba中,因為要對表中數據的操作,編寫代碼經常需要調用SQL語句。

我們通常不會在VBA代碼中鍵入復雜的查詢語句,而是在查詢的設計視圖中創建一個查詢,將其切換到SQL視圖,復制并粘貼到VBA中。

但是如果sql語句太長,我們需要折行,同時要整理引號和行尾



1. 創建一個新窗體,添加一個選項卡控件,的第一頁中,添加一個未綁定的文本框,名為“txtSql”。
2. 在選項卡控件的第二頁,添加另一個未綁定的文本框,將其命名為“txtVBA ”。
3. 最后添加命令按鈕,將其命名為“cmdSql2Vba”。



詳細按鈕代碼:

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



    分享
    北京十一选五基本走势