Discussion :

[rch05]

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 :

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

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

[Jean-Philippe André]

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

[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

[Jean-Philippe André]

La encore, la fait des miracles
http://access.developpez.com/faq/?pa...iteres#FldType

[rch05]

Re,

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

Code :

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

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.

[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 sur les fonctions dont il est question est tout designer pour les exemples de syntaxes

[rch05]

Bonjour jpcheck,

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

[rch05]

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

Code :

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

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