Bonjour à tous,
Je suis toujours sur mon formulaire de recherche multi critères. Selon les cases cochées, la partie "where" s'agrandit. Mon problème vient d'un compte avec having. Tout fonctionne bien sans le having.
En sql, ma requête fonctionne.
En vba, ça ne marche plus.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 SELECT IdInterne FROM MyTable WHERE year(Mydate)=2011 and ( month(Mydate)=1 Or month(Mydate)=4 ) GROUP BY IdInterne HAVING sum(iif(E1="Oui",1,0)+ iif(E2="Oui",1,0)+ iif(E3="Oui",1,0)+ iif(E4="Oui",1,0)+ iif(E5="Oui",1,0)+iif(E6="Oui",1,0)) > 1;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Public Sub RefreshQuery() Dim SQL As String Dim SQLNb As String SQL = "SELECT IdInterne FROM MyTable Where year(Mydate)=2011 " /* ... */ SQLNb = SQL _ & " group by IdInterne _ HAVING sum(iif(E1=""Oui"",1,0)+ iif(E2=""Oui"",1,0)+ iif(E3=""Oui"",1,0) _ + iif(E4=""Oui"",1,0)+ iif(E5=""Oui"",1,0)+ iif(E6=""Oui"",1,0)) > 1;"
Le message d'erreur: erreur de syntaxe (mes 4 dernières lignes sont mises en rouge).
Sauriez-vous d'où provient l'erreur ?
Merci de votre aide.
Partager