Bonjour j'ai ce code ci-dessous :

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
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Dim NbEnreg
        Me.objDATA = New CLdata()
        If sender.checked Then
            Me.rqSql = "SELECT Tbl_Agents.Index_Agent, Tbl_Agents.Nom, Tbl_Agents.Prenom FROM Tbl_Agents"
        Else
            Me.rqSql = "SELECT Tbl_Agents.Index_Agent, Tbl_Agents.Nom, Tbl_Agents.Prenom " & _
            "FROM Tbl_Agents " & _
            "WHERE (('1900/01/01' < Tbl_Agents.Date_Sortie_DGAC) AND ((Tbl_Agents.Date_Sortie_DGAC >  '" & Format(DateValue(Me.Calendrier.Value), "yyyy-MM-dd") & "')) or (Tbl_Agents.Date_Sortie_DGAC is null))"
        End If
        Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT")
        NbEnreg = DS.Tables(0).Rows.Count - 1
        H.Clear()
        Me.search.Items.Clear()
        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
c'est donc une condition si le checkbox est coché ou pas.

SI le checkbox n'est pas coché c'est que l'utilisateur à changé de date dans le DateTimePicker. Le truc c'est que si l'utilisateur rechange de date la listBox ne s'actualise pas en fonction de la requête. j'ai essayé ce code-ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Calendrier_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendrier.ValueChanged
        Dim NbEnreg
        Me.objDATA = New CLdata()
        Me.rqSql = "SELECT Tbl_Agents.Index_Agent, Tbl_Agents.Nom, Tbl_Agents.Prenom " & _
            "FROM Tbl_Agents " & _
            "WHERE (('1900/01/01' < Tbl_Agents.Date_Sortie_DGAC) AND ((Tbl_Agents.Date_Sortie_DGAC >  '" & Format(DateValue(Me.Calendrier.Value), "yyyy-MM-dd") & "')) or (Tbl_Agents.Date_Sortie_DGAC is null))"
        Me.DS = Me.objDATA.getRows(Me.rqSql, "TBL_CHOIX_AGENT")
        NbEnreg = DS.Tables(0).Rows.Count - 1
        H.Clear()
        Me.search.Items.Clear()
        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
mais ne fonctionne toujours pas!!!

D'avance Merci