Textboxta Dört İşlemde Hata

[slymn_ern]

istediğim visual basicte hazırladığım textboxlarda dört işlem yapmak,
1. textbox boş olduğunda hata değil uyar versin ( boş geçemezsin gibi )
2. idari personel ücret kısmında net * oran% = brute eklenmesini istiyorum

şimdiden teşekkür ederim

 

[hamitcan]

Bu iki kodu ekleyerek deneyin. Ayrıca diğer textboxları, aynı mantıkta siz oluşturun.

Private Sub textbox14_exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox14 = Empty Then MsgBox "Boş geçemezsiniz": Cancel = True: Exit Sub
    TextBox19 = (TextBox14 / TextBox40) + CInt(TextBox14)
End Sub


Private Sub UserForm_Initialize()
    TextBox40.SetFocus
End Sub

 

[slymn_ern]

sn.hamitcan

önce oran kısmını yazmamız gerekiyor sanırım,
oran kısmını yazmadğımız zaman kod hata veriyor ben istiyorum bu kısımdada hata vermesin bu şekilde yapamazmıyız acaba?

 

[hamitcan]

Private Sub textbox14_exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox14 = Empty Then MsgBox "Boş geçemezsiniz": Cancel = True: Exit Sub
     If TextBox40 = Empty Then TextBox19 = 0 Else TextBox19 = (TextBox14.Value / TextBox40.Value) + (TextBox14.Value)
End Sub

şeklinde deneyin.

 

[slymn_ern]

sn.hamitcan teşekkür ederim şimdi istediğim gibi oldu

peki aynı bunlar gibi mesela 25 tane textboxım var diyelim hepsi için ayrı ayrı kodmu yazmamız gerekiyor

 

[hamitcan]

Class Module ile kod kısaltılabilir.

 

[slymn_ern]

Class Module ile kod kısaltılabilir.

hımm anladım ben bir deneyim eğer yapamazsam değerli tecrübelerinizden faydalanmam gerekecek

Teşekkür Ederim.