运行此Access VBA查询时，如何避免运行时错误3075？

Question

有人能说出这个查询有什么问题吗？

sqltext = "SELECT utyp, count(*) AS anzahl
           INTO UTYP_Anzahl FROM 01_umwelt 
           WHERE [01_umwelt].status = Me.Controls(""STATUS"").Value 
           GROUP BY utyp;"

我的运行时间错误3075.

Answer 1

您使用的SQL无效。添加对控件的引用时，必须转义查询字符串。此外，您可以直接通过它的名称获取控件。请尝试以下方法：

sqltext = "SELECT utyp, count(*) AS anzahl INTO UTYP_Anzahl " _
        & "FROM 01_umwelt WHERE [01_umwelt].status = " _
        & STATUS.Value _
        & " GROUP BY utyp;"