Discussion :

[nokia1600]

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

[mactwist69]

Salut.

Donc apparemment le problème c'est que quand l'utilisateur RE change la date, (avec un DateTimePicker ?) le code de l'évènement ne se déclenche pas?

Si le code de l'évènement ne se fait pas c'est que ca ne doit pas être le bon évènement. En as tu essayé d'autres? Comme Textchanged ou validated?