Comment puis-je éviter l'erreur d'exécution 3075 lors de l'exécution de cette requête Access VBA?

Question

Quelqu'un peut-il dire quel est le problème avec cette requête?

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

Je reçois une erreur de temps d'exécution 3075.

Answer 1

Le SQL que vous utilisez est pas valide. Vous devez échapper la chaîne de requête lors de l'ajout d'une référence à un contrôle. En outre, vous pouvez obtenir le contrôle directement par son nom. Essayez ce qui suit:

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