textbox geçerli bir tarih girilmeini sağlama

[sirkülasyon]

Es Selâmünaleyküm
textbox1' e anlamsız tarih girildiği zaman uyarı nasıl verebilirim?
Saygılarımla

 

[Korhan Ayhan]

Aleyküm Selam,

İnceleyiniz.

textbox tarih hatası

Private Sub TextBox12_Change() If Len(TextBox12.Text) = 2 Then TextBox12.Text = TextBox12.Text & "." If Len(TextBox12.Text) = 5 Then TextBox12.Text = TextBox12.Text & "." If Len(TextBox12.Text) = 10 Then TextBox12.SetFocus End Sub düzgün tarih te girilse anlamsız (22.22.2222 gibi) tarihte...

www.excel.web.tr

https://www.excel.web.tr/threads/textboxa-giriste-karakter-kontrolue-rakam-harf.15837/

 

[Orion1]

Alternatif.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Value) Then
    MsgBox "lütfen geçerli bir tarih giriniz."
    Exit Sub
End If
End Sub