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 : Sélectionner tout - Visualiser dans une fenêtre à part
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