TextBoxlarda veri doğrulama

[angurya]

Mrb,

txtToplam textbox ındaki veriyi txtLimit olan textbox ile karşılaştırıp txtToplam ın değeri txtLimit i aşması halinde uyarı vermesini istiyorum.

teşekürler.

 

[Ömer]

Merhaba,

Bu şekilde deneyin. TextBox isimlerini kendinize göre düzenlersiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text > TextBox2.Text Then
        MsgBox "Yanlış Rakam"
    End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text > TextBox2.Text Then
        MsgBox "Yanlış Rakam"
    End If
End Sub

.

 

[angurya]

' Yolluk Miktarı Kontrolu
Private Sub txtToplam_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtToplam.Text > txtLimit.Text Then
MsgBox "Yanlış Rakam"
End If
End Sub

Private Sub txtLimit_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtToplam.Text > txtLimit.Text Then
MsgBox "Yanlış Rakam"
End If
End Sub

öncelikle ilgini için teşekkürler Ömer bey kodları uyarladım ama hata verdi
hata veren satır
If txtToplam.Text > txtLimit.Text Then



Private Sub Topla()
Dim txt As Control, toplam As Double
For Each txt In Me.Controls
If TypeName(txt) = "TextBox" Then
If txt.Tag = "t" Then
If IsNumeric(txt.Text) Then
toplam = toplam + CDbl(txt.Text)
End If
End If
End If
Next
son: txtToplam = toplam

MsgBox "TOPLAM : " & Format(toplam, "#,##0.00") & vbLf & "admin@angurya.com", vbOKOnly + vbInformation, "A N G U R Y A"
End Sub

yukarıdaki kodla 44 adet textbox'ın değerleri toplanıyor bu değer txtToplam adlı bir textbox yardımıya veriler adlı sayfanın I sütununa yazılıyor, diğer taraftan veriler sayfasının D sütününda ise txtLimit adlı textbox a atanan sabit değerler var isteğim txtToplam değerinin her kayıt aşamasında kontrolu ile txtLimit değerini aşması halinde uyarı vermesi işte "Dikkat ! Yolluk Limiti aşıldı. Makbuz Değerini Kontrol edin." gibi ama limit aşımına izin verilmemesi...

örnek :
Ünvan (txtTitle) Yolluk Limiti (txtLimit) Yolluk Toplamı(txtToplam)
Müdür 1500 1600 > olduğunda uyarı vermesi , ilgili hüvrenin kırımızı renge boyanması
Müdür Yrd 1400 1400
Şef 1300 1300
Muayene Me. 1200 1200
Memur 1000 1100 > olduğunda uyarı verip ilgili hücrenin veya textboxun kırmızı renkle boyanması

örnek dosya yı ekledim karışık gelebilir yapmak istediğim dairede yolluk bilgilerinin girişini ve bordrosunu yapabilecek bir uygulama bu konulara çok fazla hakim değilim yardımlarınız için çok sağolun

 

[Ömer]

Ben hata almadım. Sorunuzu destekleyen küçük bir örnek eklermisiniz.

 

[angurya]

Private Sub yolluklimit()
Dim miktar As Integer
Dim limit As Integer

miktar = txtToplam.Value
limit = txtLimit.Value

If miktar <= limit Then
MsgBox "Yolluk Miktarı : " & miktar & ""
Else
MsgBox "Dikkat! Yolluk Sınırını Aştınız. Makbuzları Kontrol ediniz."

End If
End Sub

şöyle bir kod yazdım ama txtLimit boş olduğunda limit = txtLimit.Value satırı hata veriyor.

 

[Korhan Ayhan]

Merhaba,

Hata veren satırı aşağıdaki gibi değiştirip deneyin.

limit = Iif(txtLimit.Value = "", 0, txtLimit.Value)

 

[angurya]

Teşekkürler Korhan Bey,