如何在ms訪問中編寫將運行sql的宏

Question

如何在MS Access中編寫一個宏，該宏將自動運行多個SQL查詢並同時保存它們？ 如果我選擇OpenQuery操作，那么它需要一個已經保存的查詢，但是我想使用宏在多個表上運行查詢，有沒有辦法做到這一點！

Answer 1

使用一個簡單的函數來創建查詢。 然后，您只需要運行它。 如果您不提供名稱，該查詢將不會被存儲（臨時）。

創建查詢：

Private Function CreateQueryDefinition(ByVal qryName As String, ByVal sqlCommand As String) As DAO.QueryDef
    Set CreateQueryDefinition = CurrentDb().CreateQueryDef(qryName, sqlCommand)
End Function

調用它：

Private Sub Form_Load()

    Dim q As DAO.QueryDef
    Set q = CreateQueryDefinition("QueryName", "UPDATE Table SET Table.Field = 'Whatever';")
        q.Execute dbFailOnError

End Sub

請注意，如果您嘗試創建一個已經存在的查詢，將會拋出一個錯誤。