Insertion d'une date

Bonjour

Je voudrais par le biais du CommandButton5 en cliquant dessus, insérer la date du jour dans le Textbox1 juste à coté.

J'ai fais ceci :

Private Sub CommandButton5_Click()
Dim a As Date
a = Date
Me.TextBox1.Text = CDate(a)
End Sub

mais cela ne fct pas.

Bonsoir

Comme ceci

Private Sub CommandButton5_Click()
Me.TextBox1.value = Date
End Sub

Cordialement

Merci

Mais par rapport au reste du code, cela n'affiche rien dans le Textbox1 ?

Bonjour à tous,

À cause du calendrier > tu as un tricotage sur cette textbox.

Je suggère donc.

Private Sub CommandButton5_Click()

Me.Lbl_Date.Caption = Date
Me.TextBox1.Text = Date
End Sub

ric

Ben c'est normal puisque dans Private Sub TextBox1_Change() vous demandez de mettre la valeur trouvée dans le label date et qu'il n'y a rien là

Pourquoi utilisez vous le label "lbl_date" ?

Si vous voulez conserver le label, modifiez le code comme ceci :

Private Sub CommandButton5_Click()
With Me
    .Lbl_Date.Caption = Date
    .TextBox1.Value = Lbl_Date.Caption
End With
End Sub

Merci

cela fct bien