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
[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.