Discussion :

[taisherg]

Bonjour,

Je souhaite transcrire une requête SQL en VBA à des fins d'automatisation et j'ai donc le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Sub REPONSE(ByVal noetude As String, strsql As String)
 
Dim strtable As String
Dim strcriteria As String
 
strtable = "CARACATT, ETUDES, QUESTIONS, MODALITES"
strcriteria = "CARACATT.no_etude in (" & noetude & ")"
strcriteria = strcriteria & " And CARACATT.no_etude=ETUDES.no_etude And CARACATT.reponse=MODALITES.modalite AND CARACATT.question=MODALITES.question and ETUDES.no_etude=MODALITES.no_etude and QUESTIONS.question=MODALITES.question and QUESTIONS.no_etude=MODALITES.no_etude"
strcriteria = strcriteria & " And (CARACATT.question)='INTENTION DE RECONSOMMATION'"
strsql = "SELECT ETUDES.type_produit, CARACATT.no_produit, CARACATT.question, CARACATT.reponse, IIf([modalite_max]=5 And ([reponse]='1' Or [reponse]='2'),'1',IIf([modalite_max]=5 And ([reponse]='4' Or [reponse]='5'),'2',IIf([modalite_max]=4 And ([reponse]='1' Or [reponse]='2'),'1',IIf([modalite_max]=4 And ([reponse]='3' Or [reponse]='4'),'2',IIf(([modalite_max]=2 Or [modalite_max]=3) And [codage]=NON And [reponse]='2','2',IIf(([modalite_max]=2 Or [modalite_max]=3) And [codage]='NON' And [reponse]='1','1',IIf(([modalite_max]=2 Or [modalite_max]=3) And [codage]='OUI' And [reponse]='2','2',IIf(([modalite_max]=2 Or [modalite_max]=3) And [codage]='OUI' And [reponse]='1','1',IIf(([modalite_max]=3 Or [modalite_max]=5) And ([codage]='JE NE SAIS PAS' Or [codage]='JE NE SAIS SI JE L'ACHETERAIS OU NON') And [reponse]='3','3'))))))))) AS REPONSE_CARACATT, QUESTIONS.modalite_max, MODALITES.codage INTO REPONSE"
strsql = strsql + " FROM " & strtable
strsql = strsql + " WHERE ((" & strcriteria & "))"
strsql = strsql & " GROUP BY ETUDES.type_produit, CARACATT.no_produit, CARACATT.question, CARACATT.reponse, QUESTIONS.modalite_max, MODALITES.codage;"
 
End Sub

Mon problème est que ACCESS me met un message d'erreur "ERREUR DE SYNTAXE : OPERATEUR ABSENT"...

J'ai retourné la requête dans tous les sens mais je vois pas : je fais donc appel à un oeil extérieur pour trouver mon erreur !

Quelqu'un voit où sa plante ???

Merci de vos réponses...

[Kloun]

Faudrait rajouter un

Code :

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

debug.print strsql

Pour voir à quoi ressemble la requête.

[taisherg]

Merci de votre réponse...

L'erreur est provoqué au niveau des IIf, et on me précise qu'il manque un opérateur! Ne serait-ce pas un probléme au niveau des ' ' ???

[Kloun]

Comme ça, c'est pas très digeste.
Le debug.print permettrait de voir ce qui réellement envoyé.

[taisherg]

où est ce que je dois mettre cette instruction ???

[Jeannot2]

Bonjour.

Il peut y avoir un probleme au niveau du nombre de parenthese fermante.

Peut etre copier la formule dans excel pour visualiser a quelle parenthese ouvrante correspond la parenthes fermante.

Cdlt.
Jeannot2.

[vodiem]

non Jeannot2 le nombre ouvert=nombre fermé et la requete est trop grande pour excel.

l'erreur est là en rouge, gras, souligné:

Code :

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

1
2
3
4
5
6
7
SELECT ETUDES.type_produit, CARACATT.no_produit, CARACATT.question, CARACATT.reponse,
IIf([modalite_max]=5 And ([reponse]='1' Or [reponse]='2'),'1',IIf([modalite_max]=5 And ([reponse]='4' Or [reponse]='5'),'2',IIf([modalite_max]=4 And ([reponse]='1' Or [reponse]='2'),'1',IIf([modalite_max]=4 
And ([reponse]='3' Or [reponse]='4'),'2',IIf(([modalite_max]=2 Or [modalite_max]=3) And [codage]=NON And [reponse]='2','2',IIf(([modalite_max]=2 Or [modalite_max]=3) And [codage]='NON' And [reponse]='1','1',IIf(([modalite_max]=2 Or [modalite_max]=3) And [codage]='OUI' And [reponse]='2','2',IIf(([modalite_max]=2 Or [modalite_max]=3) 
And [codage]='OUI' And [reponse]='1','1',IIf(([modalite_max]=3 Or [modalite_max]=5) And ([codage]='JE NE SAIS PAS' 
Or [codage]='JE NE SAIS SI JE L'ACHETERAIS OU NON') 
And [reponse]='3','3'))))))))) AS REPONSE_CARACATT, QUESTIONS.modalite_max, MODALITES.codage INTO REPONSE FROM CARACATT, ETUDES, QUESTIONS, MODALITES WHERE ((CARACATT.no_etude in () And CARACATT.no_etude=ETUDES.no_etude
 And CARACATT.reponse=MODALITES.modalite AND CARACATT.question=MODALITES.question and ETUDES.no_etude=MODALITES.no_etude and QUESTIONS.question=MODALITES.question and QUESTIONS.no_etude=MODALITES.no_etude And (CARACATT.question)='INTENTION DE RECONSOMMATION')) GROUP BY ETUDES.type_produit, CARACATT.no_produit, CARACATT.question, CARACATT.reponse, QUESTIONS.modalite_max, MODALITES.codage;

il te faut un dédoublement de guillemet!

[taisherg]

Bonjour,

Et bien celle-là je n'y avait en aucun cas pensée...

Comment faire alors pour tenir compte de l'apostrophe ???

En tout cas MERCI BEAUCOUP de votre aide, je vais enfin pouvoir terminer mon projet, aprés 3 mois de labeur...

Encore merci