Bonjour à tous,

J'ai une listBox avec des agents dedans, je veux faire un filtre c'est à dire si je coche la checkbox j'ai le nom de tous les agents, si elle n'est pas coché seul les agents qui sont encore en poste à la date choisi par l'utilisateur sont affichés, tourné dans l'autre sens les agents dont leur date de départ est comprise entre une date au hasard du genre 01/01/1900 et la date sélectionné par l'utilisateur ne s'affichent pas.

Voici mon 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
 Private H As New Hashtable
 Private Index_Cherche As Integer

        Dim NbEnreg
        H.Clear()
        If CheckBox1.CheckState = CheckState.Checked Then
            Me.objDATA = New CLdata()
            Me.rqSql = "SELECT Index_Agent, Nom, Prenom " & _
                       "FROM Tbl_Agents ORDER BY Nom, Prenom ASC "
            Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT") 
        ElseIf CheckBox1.CheckState = CheckState.Unchecked Then           
 Me.objDATA = New CLdata()
            Me.rqSql = "SELECT Index_Agent, Nom, Prenom " & _
                       "FROM Tbl_Agents WHERE ('1900/01/01' >Tbl_Agents.Date_Sortie_DGAC > '" & Format(DateValue(Me.Calendrier.Value), "yyyy-MM-dd") & "')  ORDER BY Nom, Prenom ASC "
            Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT")
        End If
        NbEnreg = DS.Tables(0).Rows.Count - 1
        For I = 0 To NbEnreg
            H.Add(I, DS.Tables(0).Rows(I).Item(0))
            Me.search.Items.Add(DS.Tables(0).Rows(I).Item(1) & " " & DS.Tables(0).Rows(I).Item(2))
        Next
    End Sub

Que mettre dans la clause where? Le code est-il bon?
Merci.