Как избежать ошибки времени выполнения 3075 при выполнении этого запроса VBA Access?

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;"