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”并使用这两行。