Reinitialiser DTPicker

Résolu/Fermé

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 24 sept. 2012 à 14:51
surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 - 24 sept. 2012 à 23:57

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

A voir également:

2 réponses

Réponse 1 / 2

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
24 sept. 2012 à 15:52

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

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
24 sept. 2012 à 16:28

bonjour
rien ne change dans le DTPicker
a bientot

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
24 sept. 2012 à 16:56

Re,
Faites passer votre fichier que nous voyons ce qui ne va pas

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
24 sept. 2012 à 17:32

bonjour
le voici il est en construction encore je le commence
https://www.cjoint.com/?BIyrEZFRvGM
a bientot

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
24 sept. 2012 à 18:06

je recupere le fichier et vous tiens au courant.

A+

f894009 Messages postés 17222 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 8 janvier 2025 1 712
24 sept. 2012 à 18:53

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

Réponse 2 / 2

surplus
24 sept. 2012 à 22:30

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

Le Pingou Messages postés 12228 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 9 janvier 2025 1 454
24 sept. 2012 à 23:46

Bonjour,
Au passage le contrôle [Microsoft Date and Time Picker Control 6.0 ! impose une date par défaut (propriété [Value] ne peut pas être vide), dans ce sens essayer avec [Contrôle Calendar 11.0].
Salutations
Le Pingou

surplus Messages postés 675 Date d'inscription mardi 17 août 2010 Statut Membre Dernière intervention 14 novembre 2021 4
24 sept. 2012 à 23:57

bonjour
c'est pas gênant ca prends la date du jour
j avais fait avec controle calendar et on m a conseillé DTPicker
a bientôt

Discussions similaires

Débloquer sa tablette sans compte google

Comment reinitialiser mon telephone fixe ?

Pokémon X et Y : comment effacer une partie ?