Reinitialiser DTPicker
Résolu
Bonjour,
je voudrais reinitialiser une feuille donc effacer les entrées pour reecrire avec ce code
Private Sub raz_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub
qui fonctionne bien pour tout sauf le DTPicker
compment le reinitialiser?
ou est ce qu'il ne se reinitialise pas?
merci
a bientot
je voudrais reinitialiser une feuille donc effacer les entrées pour reecrire avec ce code
Private Sub raz_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox"
c.Value = ""
Case "CheckBox"
c.Value = False
Case "ListBox", "ComboBox"
c.ListIndex = -1
End Select
Next c
End Sub
qui fonctionne bien pour tout sauf le DTPicker
compment le reinitialiser?
ou est ce qu'il ne se reinitialise pas?
merci
a bientot
2 réponses
-
Bonjour,
'init data pickers pour aujourd'hui
DTPicker_Pris = Now
DTPicker_Rest = Now
DTPicker_Prev = Now
ou pour une date
DTPicker_Pris = CDate("01/10/2010")
Bonne suite-
-
-
bonjour
le voici il est en construction encore je le commence
https://www.cjoint.com/?BIyrEZFRvGM
a bientot -
-
Re,
C'est le nom du control DTPicker qu'il faut tester.
Private Sub raz_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox" c.Value = "" Case "CheckBox" c.Value = False Case "ListBox", "ComboBox" c.ListIndex = -1 Case "DTPicker" 'exemple init data pickers pour aujourd'hui Me.DTPicker_Rest = Now Me.DTPicker_Prev = Now 'Une date Me.DTPicker_Pris = CDate("01/10/2010") End Select Next c End Sub
-
-
bonjour
ça marche pas terrible mais de toute façon y a pas lieu de les réinitialiser si on enregistre pas .
C'est pas gênant que cela reste apparent
donc je vais me pencher sur le reste et y a du boulot
et c'est sur que j'aurais besoin de vous
merci
a bientôt
