Discussion :

[dahi67nb]

Bonjour,

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

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]

bonjour,
soit tu double les guillemets, soit tu mets des apostrophes:

Code SQL :

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

1
2
3
[10_Data].WS_DOSS_LIB_POSIT_SIN)=""EN COURS""
ou
[10_Data].WS_DOSS_LIB_POSIT_SIN)='EN COURS'

pareil pour les Like :

Code SQL :

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

1
2
3
Like ""*""
ou 
Like '*'

sans espaces autour de l'astérisque.
PS: il faut savoirs que les erreurs de syntaxe détectées par Access commencent toujours par celles trouvées en fin de code ...

[dahi67nb]

Merci tee_grandbois pour ta réactivité

malheureusement, ça ne marchait pas. il m'indique "Erreur d'exécution 13 Incompatibilité de type"
que dois-je faire? SVP

[tee_grandbois]

Je suppose que tu as ajouté des variables au code SQL d'origine, il se pourrait donc que certaines variables ne sont pas de même type que les champs de la table ce qui provoque l'erreur 13 "incompatibilité de type".
les variables de type texte doivent être entourées d'apostrophes (ou des guillemets doublés) pour être valides:

Code :

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

" Where monchamp ='" & mavariabletexte & "' and ..."

ou

Code :

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

" Where monchamp =""" & mavariabletexte & """ and ..."

Peux-tu faire une impression d'écran du code VBA au moment de l'apparition de l'erreur ?

[Jean-Philippe André]

Salut,

en plus du "EN COURS", tu as tes " * " (à noter que tu as mis des espaces en trop selon moi - "*" au lieu de "*"

Je rejoins tee_grandbois sur la solution la plus facile étant de remplacer tes " de ton SQL par des ' dans ta chaine VBA

[dahi67nb]

Merci bcp pour vous, mais cela ne fonctionne pas .

[tee_grandbois]

bonjour,

Merci bcp pour vous, mais cela ne fonctionne pas .

mais encore ????

[marot_r]

Bonjour.

Cela semble être la même discussion que :

https://www.developpez.net/forums/d1.../#post10859787

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

A+

[marot_r]

La suite de cette discussion ce trouve ici :

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

A+