Reinitialiser DTPicker
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Reinitialiser DTPicker
- Reinitialiser pc - Guide
- Reinitialiser pc sans mdp - Guide
- Réinitialiser manette ps4 - Guide
- Réinitialiser chromecast - Guide
- Reinitialiser iphone - Guide
rien ne change dans le DTPicker
a bientot
Faites passer votre fichier que nous voyons ce qui ne va pas
le voici il est en construction encore je le commence
https://www.cjoint.com/?BIyrEZFRvGM
a bientot
A+
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