OVH Cloud OVH Cloud

Date

3 réponses
Avatar
Nono
Bonjour =E0 tout le monde,

j'aimerais, =E0 partir d'une TextBox qui contienne une date,=20
avoir la possibilit=E9 sur un =E9v=E8nement (KeyUp par exemple)=20
de faire que la textbox affiche la date du jour suivant ou=20
pr=E9c=E9dent.
Tout =E7a pour ma balader de date en date sur mon textbox=20
gr=E0ce =E0 cet =E9v=E8nement.
J'ai essay=E9 de la faire par un truc du style:

textbox.value=3Dtextbox.value+1

mais y'a une icompatibilit=E9 de type entre ma date contenue=20
dans le textbox et le 1...
J'ai tent=E9 de convertir la date en entier, ajouter 1, puis=20
reconvertir en date mais =E7a marche p=F4 ;o)

Merci d'avance pour vos id=E9es

Nono

3 réponses

Avatar
michdenis
Bonjour ,

Voici 2 façons de faire,

Dans les 2 cas, tu dois t'assurer que le contenu de ton textbox est une date, pour ce faire tu peux utiliser ceci :

If isdate(Me.textbox1)= True then
'le code

End If


Utilisation d'un contrôle ScrollBar
'==================== Private Sub ScrollBar1_Change()

Me.TextBox1 = CDate(Date)
Me.TextBox1 = CDate(Me.TextBox1) + Me.ScrollBar1.Value

End Sub
'-----------------------------
Private Sub ScrollBar1_Scroll()
ScrollBar1_Change
End Sub
'------------------------------



Utilisation d'un spinbutton
'==================== Private Sub SpinButton1_Change()

Me.TextBox1 = CDate(Date)
Me.TextBox1 = CDate(Me.TextBox1) + Me.SpinButton1.Value

End Sub



Salutations!





"Nono" a écrit dans le message de news:13e901c49b0b$e65cbf40$
Bonjour à tout le monde,

j'aimerais, à partir d'une TextBox qui contienne une date,
avoir la possibilité sur un évènement (KeyUp par exemple)
de faire que la textbox affiche la date du jour suivant ou
précédent.
Tout ça pour ma balader de date en date sur mon textbox
gràce à cet évènement.
J'ai essayé de la faire par un truc du style:

textbox.value=textbox.value+1

mais y'a une icompatibilité de type entre ma date contenue
dans le textbox et le 1...
J'ai tenté de convertir la date en entier, ajouter 1, puis
reconvertir en date mais ça marche pô ;o)

Merci d'avance pour vos idées

Nono
Avatar
Nono
Super!!

Ca marche

Merci bcp !!

Nono
Avatar
michdenis
Bonjour Nono,

Si l'usager n'a pas à saisir la date dans le Textbox, je te conseille d'utiliser un contrôle "Label" (étiquette) ,
l'usager ne pourra modifier manuellement le contenu et cela évitera éventuellement un "plantage"


Salutations!


"Nono" a écrit dans le message de news:149401c49b19$b9b06790$
Super!!

Ca marche

Merci bcp !!

Nono