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
| Private Sub Form_Load()
DoCmd.Maximize
Dim ctl As Control
Me.date_rapport_min = Now
Me.txt_datemax = Now
Me.txt_datemin = Now
For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value = 0
Case "txt"
ctl.Visible = False
ctl.Value = ""
Case "cmb"
ctl.Visible = False
Case "lbl"
ctl.Visible = False
End Select
Next ctl
Me.lst_resultats.RowSource = "SELECT id_probleme, info, date, interlocuteur, telephone, nature_probleme, urgence, magasin, vague, descriptif, resolu, date_resolution, commentaire FROM hotline WHERE info=0 ORDER BY id_probleme DESC;"
Me.lst_resultats.Requery
End Sub |
Partager