Textboxlardaki değere göre uyarı yazısı vermesi

[sukruyilmaz1]

İyi günler üstadlarım.

Textbox 1 ve Textbox2 ye değerler giriyorum.

eğer Textbox1 deki değer Textbox 2 deki değerden küçük ise uyarı versin ve işlem yapmasın. Büyük ise işlem yapsın.

teşekkür ederim.


yapmaya çalıştığım kod aşağıdadır:


If TextBox1.Value < TextBox2.Value Then

MsgBox "MEVCUT ÖDENEK TUTARI YETERSİZDİR. LÜTFEN ÖDENEK TUTARINI GÜNCELLEYİNİZ!"

Else

MsgBox "MEVCUT ÖDENEK TUTARI YETERLİDİR!"


End If

 

[Orion1]

textbox1 ve textbox2 exit olaylarına aşağıdak,i kodu yazınız.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value < TextBox2.Value Then

MsgBox "MEVCUT ÖDENEK TUTARI YETERSİZDİR. LÜTFEN ÖDENEK TUTARINI GÜNCELLEYİNİZ!"
Cancel = True
Else

MsgBox "MEVCUT ÖDENEK TUTARI YETERLİDİR!"
End If
End Sub

 

[sukruyilmaz1]

Sayın orion tesekkur ederim. kodu denedim fakat bir sefer yazdıktan sonra diğer textboxlara geçemiyorum. sürekli hata mesajını verip duruyor.

 

[Orion1]

girdiğiniz değeri textbox1 < textbox2 şartına uyan bir değer girip deneyiniz.

 

[sukruyilmaz1]

tesekkur ederim. elinize sağlık