Textbox a olmayan tarih girilmesin

[karakaban61]

Arkadaşlar Textbox3 tarih giriyorum ve girdiğim tarihi Texbox6 girilen rakamla topladım Texbox7 ye yazdırıyorum bu iş için aşağıdaki formülü kullanıyorum


TextBox7.Value = Format(DateAdd("YYYY", TextBox6, TextBox3), "dd.mm.yyyy")


Textbox3 e aşağıdaki formül ile tarihler arasına otomatik nokta koyduruyorum (01.02.2003 gibi)


Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 47 And KeyAscii < 58 Then
Select Case Len(TextBox3)
Case 2, 5
TextBox3 = TextBox3 & "."
Case Is > 9
KeyAscii = 0
End Select
Else
KeyAscii = 0
End If
End Sub



Gelelim soruna Textbox3 var olmayan tarih girişini nasıl engellerim 36.12.2003 25.15.2003 gibi olmayan bir tarih girildiğinde program hata verip kapanıyor şimdiden teşekkürler

 

[Murat OSMA]

İnceleyiniz....
http://www.excel.web.tr/f48/textbox-tarih-formaty-t92639/sayfa2.html

 

[karakaban61]

teşekkürler linki daha öncede inceledim ama olayı çözememiştim Class Modules olayını yeni farkettim tam ne işe yaradığını anlamadım ama kopyala yapıştır ile olayı çözdüm teşekkürler

 

[karakaban61]

arkadaşlar olayı şu şekilde çözdüm hem otomatik nokta koyuyor hemde var olmayan tarihi giremiyorsunuz belki birinin işine yarar
tek kusuru hatalı tarih uyarısından sonra imleç bir sonraki textbox da bekliyor


Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox3.Text) Then
MsgBox ("Hatalı Tarih girisi.")
TextBox3.Value = ""
End If
End Sub

Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 47 And KeyAscii < 58 Then
Select Case Len(TextBox3)
Case 2, 5
TextBox3 = TextBox3 & "."
Case Is > 9
KeyAscii = 0
End Select
Else
KeyAscii = 0
End If
End Sub