Ca, ça devrait déjà aller mieux :
select distinct [#Avis], DateEmis, DateFin, DateFin-DateDebut from rqtTempsImplantationCalcul where year([Date]) = " & UnAnneeAvant
Ensuite tu fais :
1 2 3 4
| dim iStr_SQL as string
iStr_SQL = select distinct [#Avis], DateEmis, DateFin, DateFin-DateDebut from rqtTempsImplantationCalcul where year([Date]) = " & UnAnneeAvant
debug.print iStr_SQL
... |
Si ça plante, tu copiecolle ce qui est écrit dans la fenêre de débogage, ça devrait aller plus vite pour trouver le problème.
Ceci dit, même remarque que post précédent, évite les caractères à la c.. dans les noms de champs (accents, #, ...)
Partager