filtre vba sur 2 champs date

Version imprimable

Bonjour à tous
J'essaye en vain de filtrer après mise à jour sur 2 champs date ("RechDateDebut" et "RechDateFin"), afin de faire un filtre sur un champ nommé dans ma table "Date_Appel".
Mais si les 2 champs date sont remplis, j'aimerais faire le filtre entre telle date et telle date.

J'ai lu que mes soucis pouvaient venir d'un soucis de format de date dans mes filtres, mais je ne sais pas comment l'écrire)
pouvez vous me renseigner/m'aider?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'si les deux champs sont remplis alors on filtre entre les dates entrees If Not IsNull(Me.RechDateDebut) And Me.RechDateDebut <> "" And Not IsNull(Me.RechDateFin) And Me.RechDateFin <> "" Then strFiltre = strFiltre & "[Date_Appel] BETWEEN #" & Me.RechDateDebut & "# AND #" & Me.RechDateFin & "#" Else 'si seule la date de début est entree, filtre apres cette date If Not IsNull(Me.RechDateDebut) And Me.RechDateDebut <> "" Then strFiltre = strFiltre & "[Date_Appel] >= #" & Me.RechDateDebut & "#" Else 'si seule la date de fin est entree, filtre avant cette date If Not IsNull(Me.RechDateFin) And Me.RechDateFin <> "" Then strFiltre = strFiltre & "[Date_Appel] <= #" & Me.RechDateFin & "#" End If End If End If
Merci d'avance
Cdt

14/08/2017, 11h18
Jean-Philippe André

Salut,

ta syntaxe generale est bonne, mais elle doit prendre en compte que le format de date dans les requetes est le suivant :

#MM/DD/YYYY#

Du coup tu peux adapter ton code avec par exemple

Code:

Format(Me.RechDateDebut,"MM/DD/YYYY")

si ton Control RechDateDebut est un datetime picker

Bonjour

Oui mon formulaire s'appuie bien sur une requête sélection.
Je viens de tester votre proposition mais je suis encore en erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
'si les deux champs sont remplis alors on filtre entre les dates entrees
If Not IsNull(Me.RechDateDebut) And Me.RechDateDebut <> "" And Not IsNull(Me.RechDateFin) And Me.RechDateFin <> "" Then
strFiltre = strFiltre & "[Date_Appel] BETWEEN #" & Format([Me.RechDateDebut], "MM/DD/YYYY") & "# AND #" & Format([Me.RechDateFin], "MM/DD/YYYY") & "#"
Else
'si seule la date de début est entree, on prend les offres apres cette date
If Not IsNull(Me.RechDateDebut) And Me.RechDateDebut <> "" Then
strFiltre = strFiltre & "[Date_Appel] >= #" & Format([Me.RechDateDebut], "MM/DD/YYYY") & "#"
Else
'si seule la date de fin est entree, on prend les offres avant cette date
If Not IsNull(Me.RechDateFin) And Me.RechDateFin <> "" Then
strFiltre = strFiltre & "[Date_Appel] <= #" & Format([Me.RechDateFin], "MM/DD/YYYY") & "#"
 
End If
End If
End If

Dois je mettre le format sur tous les champs qui indiquent une date (le champ [Date_Appel])?

En tout cas merci d'avance encore pour votre aide sympathique
Je ne manquerai pas dans le futur d'aider aussi sur le forum si mes connaissances permettent.
Cdt

14/08/2017, 13h51
Jean-Philippe André

Oui, le format de date est a appliquer pour tous tes champs date :)

peux tu nous afficher le contenu de strFiltre a la fin de ton traitement stp ?

Il y a une erreur à partir de et strFiltre est égal à ""

Ne faudrait il pas que strFiltre soit égal à Null pour un champs date vide?

Je ne pensais pas que c'était si compliqué que ca à filtrer sur 1 ou 2 dates.

Ni a t'il pas une erreur dans
Code:

1 2 3 4 5 'si les deux champs sont remplis alors on filtre entre les dates entrees If Not IsNull(Me.RechDateDebut) And Me.RechDateDebut <> "" And Not IsNull(Me.RechDateFin) And Me.RechDateFin <> "" Then strFiltre = strFiltre & "[Date_Appel] BETWEEN #" & Format([Me.RechDateDebut], "MM/DD/YYYY") & "# AND #" & Format([Me.RechDateFin], "MM/DD/YYYY") & "#" Else

14/08/2017, 16h02
Jean-Philippe André

Simplifie tes tests avec

Code:

If IsDate(Me.RechDateDebut) And IsDate(Me.RechDateFin)Then
14/08/2017, 16h31
Milou16

J ai fait les modis avec IsDate, j'ai erreur

Code:

strFiltre = strFiltre & "[Date_Appel] >= #" & Format([Me.RechDateDebut], "MM/DD/YYYY") & "#"

Je précise que strFiltre est égal à "" alors que le champs RechDateDebut est rempli et RechDateFin est vide
14/08/2017, 16h41
Jean-Philippe André

Pourquoi utilises-tu des crochets ?

Code:

strFiltre = strFiltre & "[Date_Appel] >= #" & Format(Me.RechDateDebut, "MM/DD/YYYY") & "#"

Je n'ai plus de message d'erreur avec ce code mais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
If IsDate(Me.RechDateDebut) And IsDate(Me.RechDateFin) Then
strFiltre = strFiltre & "[Date_Appel] BETWEEN #" & Format(Me.RechDateDebut, "MM/DD/YYYY") & "# AND #" & Format(Me.RechDateFin, "MM/DD/YYYY") & "#"
Else
'si seule la date de début est entree, filtre apres cette date
If IsDate(Me.RechDateDebut) Then
strFiltre = strFiltre & "[Date_Appel] >= #" & Format(Me.RechDateDebut, "MM/DD/YYYY") & "#"
Else
'si seule la date de fin est entree, filtre avant cette date
If IsDate(Me.RechDateFin) Then
strFiltre = strFiltre & "[Date_Appel] <= #" & Format(Me.RechDateFin, "MM/DD/YYYY") & "#"
 
End If
End If
End If

La recherche fonctionne avec le remplissage de RechDateDebut
Elle ne trouve pas d'enregistrement si je remplis que le champ RechDateFin (sans remplir rechDateDebut). Le résultat est vide aussi si je remplis les 2 champs de recherche

14/08/2017, 17h04
Jean-Philippe André

Ok, mais du coup tes RechDateDebut et RechDateFin ce sont des zones de texte ou des datetime picker ou des calendars ?
14/08/2017, 17h07
Milou16

Ceux sont des datetime (datetime picker je ne connais pas cette expression). Dans ma table, j'ai déclaré en date ce champs [Date_Appel]
IsDate ne détermine que si la valeur est convertible ou pas
14/08/2017, 17h11
Jean-Philippe André

OK, alors regardons ce que vaut strFiltre stp ?
14/08/2017, 17h16
Milou16

1 pièce(s) jointe(s)

J'ai l'impression qu Access considère le 11 aout comme le 08 novembre

Pièce jointe 302942
14/08/2017, 17h19
Jean-Philippe André

Oui la il te filtre entre le 11 aout et le 12 aout :aie:

Essaie de passer par 2 variables de type Date et d'appliquer le Format dessus ensuite.
14/08/2017, 17h22
Milou16

Variable de type date??
Je ne sais pas écrire cela en VB

Code:

1
2
3
4
Dim Dt1 as Date
Dim Dt2 as Date
Dt1 = Me.RechDateDebut.Value
Dt2 = Me.RechDateFin.Value

14/08/2017, 17h36
Milou16

J'ai testé en déclarant les variables
En fait, la dt1 est bien prise en date 'en tant que RechDateDebut mais si le 2eme champs n'est pas renseigné, access considère que dt2 = 0:00:00
14/08/2017, 17h48
Jean-Philippe André

OK, du coup tu peux faire tes tests en fonction de ce que contiennent tes variables =]

Voici le code final qui fonctionne
Le filtre s'appuie sur 2 champs indépendants qui déterminent la recherche entre 2 dates ou à partir d'une date ou avant une date
RechDateDebut et RechDatefin
Dans la table, le champs est Date_Appel est de type Date/Heure

Dans les champs RechDateDebut et RechDatefin, événement MAJ, procédure événementielle :

Code:

1
2
3
4
5
6
7
8
 
Private Sub RechDateDebut_AfterUpdate()
resultatschercher_click
End Sub
 
Private Sub RechDateFin_AfterUpdate()
resultatschercher_click
End Sub

Le code pour filtrer le formulaire est donc

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
 
 
Private Sub resultatschercher_click()
 
Dim strFiltre As String
strFiltre = ""
 
'si les deux champs sont remplis alors on filtre entre les dates entrees
If Not IsNull(Me.RechDateDebut) And Me.RechDateDebut <> "" And Not IsNull(Me.RechDateFin) And Me.RechDateFin <> "" Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & "[Date_Appel]>= #" & Format(Me.RechDateDebut, "mm/dd/yyyy hh:mm:ss") & "#"
strFiltre = strFiltre & " AND " & "[Date_Appel]<= #" & Format(Me.RechDateFin, "mm/dd/yyyy hh:mm:ss") & "#"
Else
 
'si seule la date de début est entree, filtre apres cette date
If Not IsNull(Me.RechDateDebut) And Me.RechDateDebut <> "" Then
strFiltre = strFiltre & "[Date_Appel]>= #" & Format(Me.RechDateDebut, "mm/dd/yyyy hh:mm:ss") & "#"
Else
 
'si seule la date de fin est entree, filtre avant cette date
If Not IsNull(Me.RechDateFin) And Me.RechDateFin <> "" Then
strFiltre = strFiltre & "[Date_Appel]<= #" & Format(Me.RechDateFin, "mm/dd/yyyy hh:mm:ss") & "#"
 
End If
End If
End If
 
 
'affichage dans formulaire
Me.Filter = strFiltre
Me.FilterOn = True

Normalement je n'ai rien oublié, si ce code peut servir à d'autres
Je remercie toutes les personnes qui m'ont bien aidées.
Cdt