TEXTBOX a kısıtlama yapmak

[polis-53]

merhaba arkadaşlar TextBox1 ve rakamsal veri giriyorum ve ekcel sayfasına kayıt yaptırıyorum 1 kişiye 1 den fazla kayıt giriyorum textbox2 yede excel sayfasında o kişiye ait kayıtları e1 hücresine formuülle rakamsal verileri toplattırıyorum eğer toplam rakam 45 olduysa veri girişine izin vermesin.
orneğin toplam 42 ise eğer Texbox1 e 5 rakamsal değer giriyorsam uyarı yapsın 45 rakamından buyük olamaz en fazla 3 sayısal değer girebilirsiniz uyarısını versin

 

[ExcelF1]

.........................

 

[hamitcan]

Private Sub CommandButton1_Click()
    If TextBox1.Value + TextBox2.Value >= 45 Then MsgBox "Toplam 45 veya üzerindedir, işlem yapılamaz": Exit Sub
End Sub

 

[polis-53]

Günaydın hamitcan Dün akşam bakamadım Kon güzel oldu 45 üzeri kayıt yapmıyor TextBox1 e geri donsun istiyorum.

 

[hamitcan]

Böyle deneyin.

Private Sub CommandButton1_Click()
    If TextBox1.Value + TextBox2.Value >= 45 Then MsgBox "Toplam 45 veya üzerindedir, işlem yapılamaz": TextBox1.SetFocus: Exit Sub
End Sub

 

[polis-53]

Sayın hamitcan Ben sadece 45 üzeri test etmiştim Bu her rakam girişinde 45 aşağıdakilerede 45 üzeri giriş yapamassınız mesajını veriyor.

 

[hamitcan]

Her iki kutunun toplamı 45 yada 45'in üstünde ise mesaj vermekte.

 

[polis-53]

Sayın hamit can dosyayı ekte gönderiyorum bi bakarmısın

 

[hamitcan]

Listview nesnesi kullanmışsınız, yüklerken hata alıyorum. Verdiğim kodu basit bir form üzerinde deneyin çalışacaktır.

 

[polis-53]

sayın hamitcan merhaba ektekidosyayı günceledim bibakarsanız sevinirim.

 

[hamitcan]

Dosyanızı açamıyorum, başka bir arkadaştan yardım almayı deneyin.