strfiltre date dans un filtre [Résolu]

[dav787]

Bonjour,

Dans un formulaire, j'ai crée deux champs date me permettant de faire un filtre.
1er champ intitulé txtdatedebut et un autre txtdatefin.
Mon sous formulaire contient tous les champs dont celui intitulé date d'enregistement

voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
If Not IsNull(Me.txtdatedebut) Then
If strfiltre <> "" Then strfiltre = strfiltre & " AND "
 strfiltre = strfiltre & "[Date d'enregistrement]=#" & Format(Me.txtdatedebut, "dd/mm/yyyy") & "#"
 
 
End If
If Not IsNull(Me.txtdatefin) Then
 
 
If strfiltre <> "" Then strfiltre = strfiltre & " And"
 strfiltre = strfiltre & "[Date d'enregistrement]=#" & Format(Me.txtdatefin, "dd/mm/yyyy") & "#"

Bien sûr, le filtre ne fonctionne pas, je n'ai pas de résultat alors que dans ma table, j'ai tout ce qu'il faut pour me donner les résultats.

Je vous remercie pour votre aide

[argyronet]

Bonjour,

Utilise Me.FilterOn pour connaître le fitre en cours...
Ensuite il est préférable de définir un intervalle de dates plutôt qu'une égalité car si Début est > Fin, chose que tu ne vérifies pas, tu n'auras aucun résultat...
Voici un exemple :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim strFiltre                                          As String
Dim strDateDebut                                       As String
Dim strDateFin                                         As String
Dim strIntervalle                                      As String
    strDateDebut = Nz(Me.txtdatedebut, "")
    strDateFin = Nz(Me.txtdatefin, "")
    If IsDate(strDateDebut) And IsDate(strDateFin) Then
        strDateDebut = Format(Me.txtdatedebut, "mm/dd/yyyy")
        strDateFin = Format(Me.txtdatefin, "mm/dd/yyyy")
        If CDate(strDateDebut) > CDate(strDateFin) Then
            MsgBox "Problème sur les dates !", vbExclamation
            Exit Sub
        End If
        strIntervalle = "[Date d'enregistrement]>=#" & strDateDebut & "# AND [Date d'enregistrement]<#" & strDateFin & "#"
        If Me.FilterOn Then
            strFiltre = "WHERE " & Me.Filter & " AND " & strIntervalle
        Else
            strFiltre = strIntervalle
        End If
    End If
    MsgBox strFiltre

Argy

[dav787]

Bonjour et merci pour la répons super rapide.

l'approche est effectivement meilleure.

Merci