Requete de selection recherche par date

Version imprimable

17/04/2019, 17h21
Flow565656

Requete de selection recherche par date

Bonjour,

Je suis entrain de faire une requête de recherche multicritères. J'ai un critère Nom, Service, Date d'embauche et Fin de contrat.
Par Nom, Service et Date d'embache pas de soucis. Par contre pour date de Fin de contrat comme j'ai pas toujours de date. Je réussis pas à filtrer car Access exclut automatiquement les enregistrements qui n'ont pas de date de fin de contrat. J'utilise la formule (qui marche trés bien avec Date d'embauche:

Code:

>=VraiFaux(EstNull([Formulaires]![00_Accueil]![Date_DébutFin_CM]);#01/01/1900#;[Formulaires]![00_Accueil]![Date_DébutFin_CM]) Et <=VraiFaux(EstNull([Formulaires]![00_Accueil]![Date_FinFin_CM]);#01/01/2100#;[Formulaires]![00_Accueil]![Date_FinFin_CM])))

Ou [Date_DébutFin_CM] est mon champs pour filtrer à partir de cette date les fin de contrats
et [Date_FinFin_CM] est mon champs pour filtrer jusqu'a cette date les fin de contrats.

J'ai essayé de bidouillé un VraiFaux en cascade pour dire que si DébutFin ou FinFin EstNull il doit rien faire mais ça marche pas:aie: Je dois me planter dans la synthaxe. Je suis novice...

Merci,
17/04/2019, 21h24
EricDgn

Bonjour,

Essayer en utilisant la fonction Nz() disponible dans Access:

Code:

>=Nz([Formulaires]![00_Accueil]![Date_DébutFin_CM]);#01/01/1990#) Et <=Nz([Formulaires]![00_Accueil]![Date_FinFin_CM];#01/01/2100#)

Bonne continuation.
24/04/2019, 11h09
Flow565656

Bonjour EricDgn,

Merci pour ta réponse, j'ai essayé la fonction Nz mais ça exclut toujours mes enregistrements ou je n'ai pas de date de fin de contrat.

J'ai mon formulaire de recherche multicritère et quand je n'ai rien dans les critères de recherche fin de contrat (a partir de #;[Formulaires]![00_Accueil]![Date_DébutFin_CM] et jusqu'à #;[Formulaires]![00_Accueil]![Date_FinFin_CM]). Je souhaiterai avoir tous mes enregistrements notamment ceux ou je n'ai pas de fin de contrat et quand je mets une date que ça me filtre sur les contrats qui ont une date de fin.

J'image un code un peu comme ça mais je connais pas encore bien les formules...

Code:

if ([Formulaires]![00_Accueil]![Date_DébutFin_CM] =Null et [Formulaires]![00_Accueil]![Date_FinFin_CM]=Null;'pas de filtre'; >=VraiFaux(EstNull([Formulaires]![00_Accueil]![Date_DébutFin_CM]);#01/01/1900#;[Formulaires]![00_Accueil]![Date_DébutFin_CM]) Et <=VraiFaux(EstNull([Formulaires]![00_Accueil]![Date_FinFin_CM]);#01/01/2100#;[Formulaires]![00_Accueil]![Date_FinFin_CM])))

1 pièce(s) jointe(s)

Bonjour,

Personnellement je préfère traiter les filtres en passant par du code. Pour moi c'est plus "lisible" et donc plus facile à mettre au point.

Un exemple en attaché avec ce code dans un formulaire à filtrer sur 2 dates:

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
Option Compare Database
Option Explicit
 
Private Sub Dat1_AfterUpdate()
    Filtrer
End Sub
 
Private Sub Dat2_AfterUpdate()
    Filtrer
End Sub
 
Private Sub Filtrer()
    Dim sWh As String
    sWh = ""
    If Nz(Me.Dat1, "") <> "" Then
        sWh = sWh & " AND CnDat1>=#" & Format(Me.Dat1, "yyyy-mm-dd") & "#"
        '--- note: élimine aussi les enregistrements où [CnDat1] est vide
    End If
    If Nz(Me.Dat2, "") <> "" Then
        sWh = sWh & " AND CnDat2<=#" & Format(Me.Dat2, "yyyy-mm-dd") & "#"
        '--- note: élimine aussi les enregistrements où [CnDat2] est vide
    End If
    If sWh <> "" Then
        sWh = Mid(sWh, 6)
    End If
    Debug.Print "sWh: "; sWh
    Me.Filter = sWh
    Me.FilterOn = True
End Sub

A adapter à votre cas.
Bonne continuation.