tarih formatı

[akd]

Selamlar,
Textbox'a yalnızca tarih girilsin, metin veya sayısal degerler girilmesin, istiyorum ,
nasıl yapabilirim.?

 

[metinozlu]

Private Sub CommandButton5_Click()
If TextBox168.Value = IsDate(TextBox168) Then
Else
MsgBox ("Lütfen tarih Yazınız. 01.01.2005 gibi")
TextBox168.SetFocus
Exit Sub
End If
If TextBox169.Value = IsNumeric(TextBox169) Then
Else
MsgBox ("Lütfen sayı Yazınız. 12 gibi")
TextBox169.SetFocus
Exit Sub
End If
If TextBox170.Value = IsNumeric(TextBox170) Then
Else
MsgBox ("Lütfen Kira Tutarını Yazınız. 300 gibi")
TextBox170.SetFocus
Exit Sub
End If
If TextBox183.Value = IsNumeric(TextBox183) Then
Else
MsgBox ("Lütfen tarih Yazınız. 01.01.2005 gibi")
TextBox183.SetFocus
Exit Sub
End If
end sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:7bdf6d4e0b]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1) = False Then
MsgBox "YALNIZCA TARİH GİRİLEBİLİR"
TextBox1 = ""
End If
End Sub
[/vb:1:7bdf6d4e0b]

 

[akd]

İlgilenen arakdaşlara çok çok teşekkür ederim