Discussion :

[kryssy]

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

[FreeAccess]

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
Sinon ici, la variable sql ne prendra que la dernière valeur :

Code :

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

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

[FreeAccess]

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

Code :

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

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
Bonne continuation

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

Code :

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

CurrentDb.CreateQueryDef "NomDeLaRequête", sql

[kryssy]

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

[kryssy]

Merci à nouveau

[FreeAccess]

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 :

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

CurrentDb.CreateQueryDef.......

Il faut maintenant que tu l'exécute par

Code :

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

DoCmd.OpenQuery 'NomDeLaRequête"

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