Bonjour
J'ai un probleme d'exécution ma requete Sql est identique a celle généré par Access et mon dbCourante.Execute (Sql) ne fonctionne pas il me met impossible d'effectuer une requete sélection. Je ne comprends pas pourquoi
Si quelqu'un peut me l'expliquer je le remercie d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim dbCourante As DAO.Database
 
'Définir la base de travail comme la base actuelle
Set dbCourante = CurrentDb
 
'Définir la requête
Sql = " SELECT PJPF2006_T3.OPPO, PJPF2006_T3.MPE, PJPF2006_T3.MPF, PJPF2006_T3.MRE, PJPF2006_T3.MRF, PJPF2006_T3.M__, '2006_T3' AS année FROM PJPF2006_T3 WHERE (((PJPF2006_T3.CBQD)='total') AND ((PJPF2006_T3.MOIS)='total') AND ((PJPF2006_T3.CMOP)='total'));"
 
'Exécuter la requête
dbCourante.Execute (Sql)
 
Set dbCourante = Nothing