textboxlara istenilen veri dışında bir bilgi girilince uyarı vermek?

[udentr2002]

merhaba arkadaşlar ekteki örnektekinin benzeri basit bir dosyam var.
form açılınca tarih ve tutar belirtilen textboxlarım var kaydet tuşuna basıncada bu bilgiler sayfaya aktarılıyor.

textbox1'e gg.aa.yyyy (01.01.2007) formatı haricinde bir tarih girildiğinde kaydetmeden önce uyarı vermesini isitiyorum ayrıca mesala textbox1 e tarih yerine metin girildiğinde de bir uyarı vermesini istiyorum.
aynı olay textbox2 içinde textbox2 ye rakam haricinde bir bilgi girildiğinde kaydetmeden önce bir uyarı vermesini istiyorum.

bunun için nasıl bir kod yazmalıyım. ilgilenen tüm arkadaşlarıma teşekkür ederim.

 

[Orion1]

Aşağıdaki kodlar işinizi görür sanırım.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1.Value) Then
    MsgBox "Yanlış giriş.Geçerli bir Tarih giriniz.!", vbCritical, "UYARI"
    Cancel = True
End If
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox2.Value) Then
    MsgBox "Yanlış giriş.Sayısal bir değer giriniz.!", vbCritical, "UYARI"
    Cancel = True
End If
End Sub

 

[isfa5878]

Private Sub TextBox2_Change()
If IsNumeric(TextBox2) = False And TextBox2 <> Empty Then
MsgBox "SADECE SAYI G&#304;REB&#304;L&#304;RS&#304;N&#304;Z."

End If
End Sub

 

[udentr2002]

orion ve isfa5878 hocam her ikinizede ayr&#305; ayr&#305; te&#351;ekk&#252;r ederim. &#231;ok sa&#287; olun