Discussion :

[C15nantes]

Bonjour à tous et à toutes,

Dans un formulaire, j'ai un bouton qui créé une requête

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub MAJCotisDuesCR_sans_mail(Numdebut As Integer)
  Dim sSql As String
  Dim q As QueryDef
  sSql = "TRANSFORM Sum(T_Cotisation.Cotisation_Du) AS SommeDeCotisation_Du" _
& " SELECT [T Adhérents].Titre,[T Adhérents].N°Adherent, [T Adhérents].Nom, [T Adhérents].Prenom, Sum(T_Cotisation.Cotisation_Du) AS Total, [T Adhérents].Adresse, IIf(Mid([CP],3,1)='-',Mid([CP],InStr([CP],'-')+1),[CP]) AS CP1, [T Adhérents].Ville, [T Adhérents].Pays, [T Adhérents].EMail" _
& " FROM [T Adhérents] INNER JOIN T_Cotisation ON [T Adhérents].N°Adherent = T_Cotisation.T_Adherent_FK" _
& " WHERE (((T_Cotisation.Cotisation_An) Between " & Numdebut _
& " And " & Numdebut - 4 & ") AND (([T Adhérents].Adherent)=True)) AND (([T Adhérents].EMail)=""))" _
& " GROUP BY[T Adhérents].Titre, [T Adhérents].N°Adherent, [T Adhérents].Nom, [T Adhérents].Prenom, [T Adhérents].Adresse, IIf(Mid([CP],3,1)='-',Mid([CP],InStr([CP],'-')+1),[CP]), [T Adhérents].Ville, [T Adhérents].Pays, [T Adhérents].EMail" _
& " ORDER BY[T Adhérents].Nom, [T Adhérents].Prenom" _
& " PIVOT T_Cotisation.Cotisation_An;"
 
Set q = CurrentDb.QueryDefs("0_R_COTIS_DUES_CR_adh_sans_mails")
q.SQL = sSql
End Sub

Cela fonctionnait très bien jusqu'au moment où j'ai voulu limiter cette requête aux adhérents n'ayant pas de mail (afin de leur faire un publipostage postal).
Dans la condition WHERE, j'ai donc rajouté

Code :

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

AND (([T Adhérents].EMail)="")

Et là c'est le drame , cela bogue sur la ligne

Code :

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

q.SQL = sSql

J'ai eu beau faire des tas d'essais, aucun résultat.
Pour info, si je modifie la requête initiale qui concernait tous le monde et qu'en critère sur le champ EMail, je mets ="", j'ai bien le résultat escompté.


Merci de votre aide
A+
C15

[tee_grandbois]

bonjour,
c'est en général un problème de parenthèses, un conseil, enlèves-les si tu n'as pas de OR.
ici, tu as 2 parenthèses ouvrantes et 3 fermantes:

Code :

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

AND (([T Adhérents].EMail)=""))

[Jean-Philippe André]

Salut

autre conseil, lorsque tu travailles avec les chaînes de caractères pour le SQL, il faut utiliser les apostrophes '

Code :

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

..."AND (([T Adhérents].EMail)=''))"

[C15nantes]

Bonjour à tous les 2,

Avant d'avoir vu la réponse de Jean-Philippe, j'avais fait des essais multiples et variés...et sans succès sur les différentes combinaisons de parenthèses.
Par contre du fait du AND supplémentaire, il me fallait supprimer une ) après le True

Puis j'ai fait un test sur une adresse mail précise que j'ai du mettre comme ceci "mapomme@sfr.fr", et cela a marché
C'est là que j'ai compris que il me fallait écrire

Code :

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

AND (([T Adhérents].EMail)="""")) " _

La version de Jean-Philippe

Code :

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

AND (([T Adhérents].EMail)='')) " _

marche aussi parfaitement

Merci à vous deux.
Bon week-end
C15