TextBox İlişkilendirme Hatası... Kafayı yiycem

[ewreka]

Giriş ve Çıkış olmak üzere iki tane textbox um var........
Çıkış değeri girişten büyük olunca hata vermesini istiyorum...
VBA kodu aşağıdaki gibi;

Private Sub txtcikis_Change()
If txtcikis.Value > txtgiris.Value Then
MsgBox "HATA"
Exit Sub
End If
End Sub

Çalıştırdığımda tüm koşullarda hata veriyor......
Kafayı yiycem.
Nerede hata yapıyorum acaba ????

 

[Recep İpek]

Kafayı yemenize gerek yok.
Aşağıdaki kodları deneyiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If CDate(TextBox2.Value) > CDate(TextBox1.Value) Then
MsgBox "HATA"
Exit Sub
End If
End Sub

 

[Orion1]

If CDbl(txtcikis.Value) > CDbl(txtgiris.Value) Then
MsgBox "HATA"
Exit Sub
End If

 

[mesuttasar]

Kafayı yemenize gerek yok.
Aşağıdaki kodları deneyiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If [B]CDate[/B](TextBox2.Value) > [B]CDate[/B](TextBox1.Value) Then
MsgBox "HATA"
Exit Sub
End If
End Sub

Recep bey CDate yazmadan da olabiliyor değilmi?

 

[Recep İpek]

Yazarsanız daha uygun olur.CDate fonsiyonu girilen veriyi tarih formatına çevirir.

 

[ewreka]

sorun çözüldü çok teşekkür ederim ikinize de..

öğle arası olmış zaten...
kafamı yiyeceğime dürüm yerim artık.

 

[mesuttasar]

Yazarsanız daha uygun olur.CDate fonsiyonu girilen veriyi tarih formatına çevirir.

Anladım teşekkür ederim açıklamanız için.