Discussion :

[sabel2007]

Bonjour,

Je désire réaliser un filtre entre deux dates tapées dans deux zones de texte.
Voici les commandes utilisées:

Code :

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

1
2
me.filter="datenaiss between forms!f-membres!zdate1 and forms!f-membres!zdate2"
me.filteron=true

où datenaiss est un champ dans le formulaire qui conteint des dates de naissance, zdate1 et zdate2 sont les 2 zones de texte dans lesquelles je tape les 2 dates.

La procédure événementielle est activée grâce à un clic sur un bouton de commande.

La première fois que j'exécute la procédure ça fonctionne bien, les autres fois, lorsque je modifie les dates dans les zones de texte, il me donne toulours les résultats des anciennes valeurs.

Je précise que cela fonctionnait très bien avec access2003.

Pouvez-vous m'aider ?

Merci

[loufab]

Bonjour,

et comme ceci :

Code :

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

me.filter = "DateNais between #" & forms....date1 & "# and #" & forms....date2 & "#"

Cordialement,

[ypicot]

Loufab, tu as oublié le format :
Il faut faire
"DateNais between #" & Format(forms....date1, "MM/DD/YYYY") & "# and ...

Loufab (et accessoirement Sabel), jette un coup d'oeil sur la FAQ pour plus de détail.

Aïe... non.. pas sur la tête... aïe...

Yvan

[loufab]

Salut Yvan !

[sabel2007]

Bonjour,

merci pour vos réponses. La solution que j'ai trouvé est de taper les date au format mois jour année et de faire des tests de validité.

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
Private Sub entre2dates_Click()
 
'Vérifier que la première partie de la date tapée est un mois valide
If Val(Left(Forms![f-commandes]![zdate1], 2)) > 12 Or Val(Left(Forms![f-commandes]![zdate1], 2)) < 1 Then
    MsgBox "date de début incorrecte"
   Else
   'Vérifier que les valeurs tapées dans les cases sont des dates
   If Not IsDate(CDate(Forms![f-commandes]![zdate2])) And Not IsDate(CDate(Forms![f-commandes]![zdate2])) Then
    MsgBox "date de fin incorrecte"
   Else
    'Filtrer entre 2 dates
    filtre = "[datecommande] between #" & CDate(Forms![f-commandes]![zdate1]) & "# and #" & CDate(Forms![f-commandes]![zdate2]) & "#"
    Me.Filter = filtre
    Me.FilterOn = True
End If
End If
End Sub

Merci pour votre participation