[AC-2003] Requete en sql fonctionne mais pas en vba [Résolu]

[debdev]

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.

Code :

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;

En vba, ça ne marche plus.

Code :

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.

[Beub']

Bonjour,

Tu utilises "_ &" au lieu de "& _" et tu construis mal ta chaine de caractères. Les _ doivent être hors de ta string. Essaie plutôt comme ça :

Code :

1
2
3
4
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;"

ça devrait fonctionner un peu mieux !

Cordialement,
Beub'.

[GAYOT]

Bonjour
Attention aux doubles quotes. Il vaut mieux les remplacer par des simples:

Code :

1
2
3
4
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;"

[debdev]

MERCI

tu construis mal ta chaine de caractères. Les _ doivent être hors de ta string

> ah oui, effectivement, j'avais mal compris, je pensais que le _ permettait d'aller à la ligne pour continuer à écrire son code, donc pour moi, c'était comme si j'écrivais ma requête sur une ligne (d'où l'absence de guillemets à chaque ligne)

Attention aux doubles quotes. Il vaut mieux les remplacer par des simples

> OK. Merci du conseil.Au départ, j'avais mis les simples quotes et j'ai cru que mon problème venait de là. Donc j'ai mis les doubles que j'ai elles memes doublées pour ne pas que ma string s'arrete en cours de route !

Merci pour votre aide !
Bonne fin de journée et bon week end !