SQL dans VBA access 2002

:salut:
Je tente de créer une requête d'analyse croisée à l'aide d'un clic sur un bouton sous vba dont voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim sql As String   sql = "TRANSFORM Sum(qconsoFTparBismestreetannée.Montant) AS SommeDeMontant" sql = " SELECT qconsoFTparBismestreetannée.Bimestre" sql = " FROM qconsoFTparBismestreetannée" sql = " WHERE (((qconsoFTparBismestreetannée.année) = " & Me.ztAnnée & " Or (qconsoFTparBismestreetannée.année) = " & (Me.ztAnnée - 1) & "))" sql = " GROUP BY qconsoFTparBismestreetannée.Bimestre" sql = " PIVOT qconsoFTparBismestreetannée.année;"   CurrentDb.QueryDefs("qconsoFTparBismestreetannée_AC").sql = sql

---

J'ai en retour le message suivant :
ERREUR 3129
Instruction SQL non valide ; 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' attendus.

La requête qconsoFTparbimestreetannée_AC existe déja (en SQL) et fonctionne bien, j'ai recopié son code sql dans VB

Pouvez vous m'aider
merci d'avance
:roll: :roll: :roll:

Bonjour,
Je ne suis pas un grand expert en SQL, mais je ne comprends pas pourquoi tu affecte un code SQL en plusieurs parties MAIS sans les joindre :question:
Sinon ici, la variable sql ne prendra que la dernière valeur :

Code:

---

sql = " PIVOT qconsoFTparBismestreetannée.année;"

---

Re,
je pense qu'une chose comme ceci serait beaucoup mieux:

Code:

---

1 2 3 4 5 6 7 8

Dim sql As String sql = "TRANSFORM Sum(qconsoFTparBismestreetannée.Montant) AS SommeDeMontant" sql = sql & " SELECT qconsoFTparBismestreetannée.Bimestre" sql = sql &" FROM qconsoFTparBismestreetannée" sql = sql &" WHERE (((qconsoFTparBismestreetannée.année) = " & Me.ztAnnée & " Or (qconsoFTparBismestreetannée.année) = " & (Me.ztAnnée - 1) & "))" sql = sql &" GROUP BY qconsoFTparBismestreetannée.Bimestre" sql = sql &" PIVOT qconsoFTparBismestreetannée.année;"

---

Ceci de façon à ce que chaque variable 'sql' soit concaténer avec la suivante ;)
En espérant ne pas trop me tromper :roll:
Bonne continuation

[EDIT]
De plus je pense que ceci serait mieux:

Code:

---

CurrentDb.CreateQueryDef "NomDeLaRequête", sql

---

merci pour ta réponse,
Je ne suis pas non plus experte en SQL, je me suis contentée de copier le code sql de la requête dans vba. par contre je ne comprend pas ce que tu veux dire par
"la variable sql ne prendra que la dernière valeur "

Merci d'avance

Merci à nouveau

:bravo: :bravo: :bravo:

Je vois que nos message se sont croisés ;)
De plus, je pense qu'une fois que tu as créé ta requête à l'aide de

Code:

---

CurrentDb.CreateQueryDef.......

---

Il faut maintenant que tu l'exécute par

Code:

---

DoCmd.OpenQuery 'NomDeLaRequête"

---

Voila, en espérant ne pas trop dire de bêtisse :roll:
Bonne continuation