Code SQL dans l'éditeur VBA

**dahi67nb** · 01/04/2019, 10h17

Bonjour,
je travaille sur Access (2016 de office 64 Bits).
J'ai cette ligne de code SQL (récupéré depuis Contenu de Données d'une liste déroulante), lorsque je l'écris dans l'éditeur VBA pour la mettre en dynamique elle ne fonctionne pas et m'affiche "Erreur de compilation"!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Me.Liste4.RowSource = "SELECT [10_Data].gest AS Gestionnaire, [10_Data].[Appo final xx] AS Apporteur, [10_Data].NOM_APPO AS NOM_APPOrteur, [10_Data].Ws_PROV_DAtfin_apri AS [Dernier Jour Payé],[10_Data].WS_DOSS_LIB_POSIT_SIN AS [Position du Dossier] FROM 10_Data WHERE ((([10_Data].GEST) Like " * ") And (([10_Data].[Appo final xx]) Like " * ") And (([10_Data].WS_PROV_POL_NUM_STE) Like " * ") And (([10_Data].WS_DOSS_COD_BENEF_PREST) <> 4) And (([10_Data].WS_DOSS_LIB_POSIT_SIN)="EN COURS"));"

Erreur au niveau la ligne "EN COURS".

Merci de m'aider SVP.

**tee_grandbois** · 01/04/2019, 14h58

re bonjour,
premièrement, commence par appliquer les modifications que l'on t'a préconisé dans ce post à savoir: mettre '*' à la place de " * " et 'EN COURS' à la place de "EN COURS"
deuxièmement, ce n'est pas la peine de poster une seconde fois pour le même problème ...
troisièmement, utilises les balises de code (icône #) lorsque tu postes ton code.

Ensuite, si tu utilises VBA il ne faut pas oublier:
- le caractère de continuation _ (souligné) lorsque l'instruction nécessite d'aller à la ligne suivante
- le délimiteur d'expression " (guillemet) au début et à la fin de chaque ligne pour délimiter le texte de la requête
- le caractère de concaténation & (esperluette) pour réunir toutes les expressions de chaque ligne en une seule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Me.Liste4.RowSource = "SELECT [10_Data].gest AS Gestionnaire, [10_Data].[Appo final xx] AS Apporteur, [10_Data].NOM_APPO AS NOM_APPOrteur," _
& " [10_Data].Ws_PROV_DAtfin_apri AS [Dernier Jour Payé],[10_Data].WS_DOSS_LIB_POSIT_SIN AS [Position du Dossier]" _
& " FROM 10_Data WHERE ((([10_Data].GEST) Like '*') And (([10_Data].[Appo final xx]) Like '*') And (([10_Data].WS_PROV_POL_NUM_STE) Like '*')" _
& " And (([10_Data].WS_DOSS_COD_BENEF_PREST) <> 4) And (([10_Data].WS_DOSS_LIB_POSIT_SIN)='EN COURS'));"

**marot_r** · 01/04/2019, 15h15

Bonjour.

Cela semble être la même discussion que :

https://www.developpez.net/forums/d1...l-editeur-vba/

Merci de confirmer et si c'est bien le même problème d'indiquer quelle est la discussion à conserver.

A+

**dahi67nb** · 01/04/2019, 15h20

Bonjour,

Oui c'est le même poste! j'ai un utilisateur de site qui m'a demandé de déplacé la discussion dans ce forum.
Merci pour vous réponse, je vous dirai si vos proposition aboutissent à résoudre mon souci.