Pb de syntaxe SQL en VBA sur la sélection d'une date

Version imprimable

Bonjour,

J'ai un formulaire multicritère.
Lorsque j'ai effectué un choix, j'ai plusieurs dates.
Je choisi une date, et ma requête (regroupement) est en erreur.
Je pense que cela proviens de mon code (en rouge) sur la sélection de la date (syntaxe)
Ci-dessous le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim sql As String, ClauseHAVING As String


sql = "SELECT tblReponseGestionnaire.Causedelacause,tblReponseGestionnaire.Gestionnaire,tblReponseGestionnaire.DateReponseMail,tblReponseGestionnaire.DateEnvoiMail,tblReponseGestionnaire.DateRéception,tblReponseGestionnaire.QtéRéceptionnée,tblReponseGestionnaire.Commentaire,Sum(tblHistoriqueMàJ.QteOrdre)AS SommeDeQteOrdre" & vbCrLf

sql = sql & "FROM tblReponseGestionnaire" & vbCrLf
sql = sql & "INNER JOIN tblHistoriqueMàJ ON tblReponseGestionnaire.Causedelacause = tblHistoriqueMàJ.Causedelacause" & vbCrLf
sql = sql & "GROUP BY tblReponseGestionnaire.Causedelacause,tblReponseGestionnaire.Gestionnaire,tblReponseGestionnaire.DateReponseMail,tblReponseGestionnaire.DateEnvoiMail,tblReponseGestionnaire.DateRéception,tblReponseGestionnaire.QtéRéceptionnée,tblReponseGestionnaire.Commentaire"
 'Aménager la clause Where
If Not Me.chkCauseDeLaCause Then
   ClauseHAVING = ClauseHAVING & "And tblReponseGestionnaire.Causedelacause = '" & Me.cmbCauseDeLaCause & "' "
End If
If Not Me.chkDateCauseDeLaCause Then
    ClauseHAVING = ClauseHAVING & "And tblReponseGestionnaire.DateEnvoiMail = '" & Me.cmbDateCauseDeLaCause & "' "
End If
If Not Me.chkGestionnaire Then
    ClauseHAVING = ClauseHAVING & "And tblReponseGestionnaire.Gestionnaire = '" & Me.cmbGestionnaire & "' "
End If
Select Case Me.TypeRetard1
Case 1
ClauseHAVING = ClauseHAVING & "And tblReponseGestionnaire.DateReponseMail Is Null"
Case 2
ClauseHAVING = ClauseHAVING & "And tblReponseGestionnaire.DateReponseMail Is not Null"
End Select
If Len(ClauseHAVING) = 0 Then
GoTo AménagerLaQueueSQL
Else
   ' supprimer le 1er And et Aménager la tête de clause
   ClauseHAVING = " HAVING " & Right(ClauseHAVING, Len(ClauseHAVING) - 3)
sql = sql & ClauseHAVING
End If
AménagerLaQueueSQL:
sql = sql & ";"
'Debug.Print sql
                      
Me.Sfrm.Form.RecordSource = sql

Pouvez-vous m'aider à trouver mon erreur de syntaxe?

Merci d'avance

17/09/2010, 12h40
Jean-Philippe André

salut,
merci de penser a consulter la :faq: en priorite
http://access.developpez.com/faq/?page=dates#DateFormat
17/09/2010, 13h06
rch05

Bonjour jpcheck,

J'ai bien lu le lien que tu m'as envoyé.
Mon probleme, est comment mettre le # après .DateEnvoiMail =
Chaque fois, j'ai une erreur.
Je sais que quand c'est du texte on met '" & me.texte & '"
Mais quand c'est du numérique ou une date??????
je coince.

Merci de ton aide:oops:
17/09/2010, 14h14
Jean-Philippe André

La encore, la :faq: fait des miracles ;)
http://access.developpez.com/faq/?pa...iteres#FldType
17/09/2010, 14h31
rch05
Re,

Je viens de trouver une partie de mon pb concernant la syntaxe
Code:

1 2 3 4 If Not Me.chkDateCauseDeLaCause Then ClauseHAVING = ClauseHAVING & "And tblReponseGestionnaire.DateEnvoiMail = #" & Me.cmbDateCauseDeLaCause & "# " End If
Mais, il ne résout pas ma sélection.
Je m’explique :
Après avoir sélectionné mes 2 premiers critères, j’ai 2 dates (04/09/2010 et 13/09/2010)
Quand, je choisis la 1er date rien à l’affichage.
Mais, par contre sur la 2eme (la plus récente) l’affichage s’effectue.
Peux-tu m’expliquer d’où viens mon erreur?

Je suis un jeune débutant,
Merci d'avance de ton indulgence et de ton aide:roll:.
17/09/2010, 15h18
Jean-Philippe André

Pas de probleme,
le format attendu dans ta requete est celui indique dans mon premier lien :
#MM/DD/YYYY#
ici 04/09/2010 dans ton formulaire va entrer la valeur
#04/09/2010#, ce qui va correspondre au 9 avril 2010 :)

il faut donc forcer le format en amont avec la fonciton Format()
L'aide en ligne :f1: sur les fonctions dont il est question est tout designer pour les exemples de syntaxes :ccool:
18/09/2010, 10h19
rch05

Bonjour jpcheck,

Depuis hier, j'ai essayé plusieurs solutions.
Rien ne fonctionne! Chaque fois j'ai une erreur de compilation:oops:
Peux-tu m'expliquer, car je sèche.
Merci de ton aide

Ce fut long, et j'ai trouvé.
Ci dessous le code:

Code:

1
2
3
4
 
If Not Me.chkDateCauseDeLaCause Then
    ClauseHAVING = ClauseHAVING & "And tblReponseGestionnaire.DateEnvoiMail = #" & Format(Me.cmbDateCauseDeLaCause, "mm/dd/yyyy")  & "# "
End If

:P:P