Discussion :

[celiaaa]

Bonjour,

voila j'au une requête sql qui me renvoit un résultat et j'aimerai pouvoir l'afficher sur une liste.
Le débuggueur me renvoit

Impossible d'éxécuter une requête de selection

Quelqu'un connait un autre façon d'éxécuter une requête croisé en vba et de l'afficher?
Merci

Code :

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

1
2
3
4
5
6
7
8
sql = "TRANSFORM Max(dossierParFisc.[NOMBRE DE DOSSIER]) AS [MaxDeNOMBRE DE DOSSIER]"
    sql = sql & " SELECT monChamp"
    sql = sql & " FROM Table"
    sql = sql & " GROUP BY monChamp"
    sql = sql & " PIVOT dossierParFisc.ANNEE;"
 
    CurrentDb.Execute (sql)
    Forms![frm_Reporting].Form![filleNom.Requery

[celiaaa]

J'ai mal mis ma requête
le voici

Code :

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

1
2
3
4
5
sql = "TRANSFORM Max(Table.[NOMBRE DE DOSSIER]) AS [MaxDeNOMBRE DE DOSSIER]"
    sql = sql & " SELECT Table.champ"
    sql = sql & " FROM Table"
    sql = sql & " GROUP BY Table.champ"
    sql = sql & " PIVOT Table.ANNEE;"

[Renardo]

Il faut mettre un espace avant la fermeture du guillemet
Exemple

Code :

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

1
2
3
4
5
sql = "TRANSFORM Max(Table.[NOMBRE DE DOSSIER]) AS [MaxDeNOMBRE DE DOSSIER] "
sql = sql & " SELECT Table.champ "
sql = sql & " FROM Table "
sql = sql & " GROUP BY Table.champ "
sql = sql & " PIVOT Table.ANNEE; "

[celiaaa]

Merci renardo pour ta réponse, mais ça ne change rien.. j'ai toujours le même message d'erreur...