Textbox tarih formatı

[1903bjk]

Merhabalar

Aşağıdaki gibi bir kodum var textbox a tarih girildiğinde len değerine göre araya nokta koyuyor.Fakat backspace veya delete tuşu ile girdiğim veriyi silemiyorum.Nerede hata var göremedim.Yardımcı olursanız sevinirim

Saygılarımla

Private Sub TextBox1_Change()
If TextBox1.Tag = "1" = True Then Exit Sub
If Len(TextBox1) = 2 Then
If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "."
ElseIf Len(TextBox1) = 5 Then
If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", "")) < 2 Then
TextBox1 = TextBox1 & "."
End If
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Siz silme işlemi yaptığınızda Change olayı tetiklendiği için nesne içindeki karakterler tekrar tekrar kontrol ediliyor. Buda kısır bir döngü yaratıyor. Bunun yerine aşağıdaki linkteki konudaki maskelemeyi uygulamanız sizin için daha pratik olacaktır.

http://www.excel.web.tr/showthread.php?t=5833&highlight=textbox+tarih

 

[1903bjk]

Zaman ayırdığınız için teşekkür ederim Sn Korhan

Çok faydalı oldu.

Sizinlerin sayesinde ufak çaplı kodlar yazmaya başladım ve yine sizlerin sayesinde geliştirmeye çalışıyorum.

eşekkürler tekrar

iyi geceler,

saygılarımla,