Erreur introuvable dans requête SQL dans VBA.

Bonjour à tous,


Je viens vers vous car je voudrais créer une table dont le nom commence par FL à partir d'une table nommée BIFL mais je ne parviens pas à trouver pourquoi j'ai un message d'erreur sur cette ligne de code, please help.

Code:

---

1 2 3

dSQL = "SELECT ALL INTO FL" & NomFichierQuartier & " FROM BIFL WHERE (((BIFL.COM)=" & cbo_com_import & ") and ((BIFL.LT_)='FL'));"   DoCmd.Run SQL dSQL

---

J'obtiens le message d'erreur d'exécution 3141 : Dans l'instruction SELECT, un mot réservé ou un argument est mal orthographié ou absent, ou la ponctuation est incorrecte.

La variable NomFichierQuartier est de type string, tandis que cbo_com_import est directement issu d'un combobox.

Merci à tous pour votre aide.

Bien à vous.

Bonjour,

Place un debug.print dans ton code pour récupérer le SQL généré et copie/colle dans une requête de test pour visualiser avec l'éditeur graphique.

Voir : http://cafeine.developpez.com/access...el/debugprint/ et singulièrement le chapitre V.

Bonjour Claude,

Merci beaucoup pour ton lien, j'ai pu remédier à mon problème, il s'agissait d'une double erreur de syntaxe (emploi de SELECT et guillemets). La bonne instruction étant :

Code:

---

1 2 3

dSQL = "SELECT BIFL.* INTO FL" & NomFichierQuartier & " FROM BIFL WHERE (((BIFL.COM)=" & "'" & cbo_com_import & "'" & ") and ((BIFL.LT_)='FL'));"   DoCmd.RunSQL dSQL

---

Voilà, merci encore, et bonne continuation.

Cordialement.