MS Access VBA中的查詢功能

Question

我必須在MS Access VBA中創建一個查詢功能，以便在單擊命令按鈕時可以輕松調用查詢。 我的功能看起來像這樣：

Public Function fCreateQueries(ByVal strQueryToRun As String) As String
    Dim strSQL As String
    Dim qryRun As QueryDef
    'My sql statement

    strSQL1 = "SELECT gender, TannerSum, Jahr FROM Tabelle1 WHERE gender = '1'"

    With CurrentDb
        Set qryRun = .CreateQueryDef(strQueryToRun, strSQL1)
        DoCmd.OpenQuery qryRun.Name
        .QueryDefs.Delete qryRun.Name
    End With

    Set qryRun = Nothing        

End Function

我試過調用該函數，但它不會運行。

Answer 1

當您調用該函數時，“將不會運行”，函數或查詢？

如果查詢，我做這樣的類型查詢：

    DoCmd.SetWarnings False
    DoCmd.RunSQL StrSQL1

刪除所有“with CurrentDB”並使用這兩行。