TextBox Boş İse mesaj

[teksen]

Arkadaşlar merhaba,

TextBox4 boş ise CommandButton190 a basıldığında mesaj vermesi için hangi kodlar uygundur acaba?

Eğer TextBox4 doluysa mesaj vermesine gerek yok.

Şimdiden teşekkür ederim.

Herkese iyi çalışmalar.

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki gibi birşey kullanabilirsiniz

Private Sub CommandButton190_Click()
If IsEmpty(Trim(textbox4)) Then
   MsgBox "Boş geçilemez", vbCritical, "UYARI"
   textbox4.SetFocus
   Exit Sub
End If
End Sub

 

[hsayar]

hocam bende teşekkür ederim Trim iyi fikir birden fazla boşlu olunca dolu kabul ediyordu hiç aklıma gelmemişti.

 

[teksen]

Teşekkür ederim Sn.fpc

Yalnız ben aşağıdaki gibi bir kod kullanıyorum.

Bu yüzden sizin verdiğiniz kodu uygulayamadım.

Benim kodların hangi kısmına eklemem gerekir acaba?

Private Sub CommandButton190_Click()

TextBox13 = (CDbl(TextBox4.Value) * 0.25)
TextBox14.Value = Val(TextBox4.Value) - Val(TextBox13.Value)

TextBox15 = (CDbl(TextBox14.Value) / 100) * 20
TextBox16 = (CDbl(TextBox14.Value) / 100) * 20
TextBox19 = (CDbl(TextBox14.Value) / 100) * 20
TextBox20 = (CDbl(TextBox14.Value) / 100) * 20
TextBox21 = (CDbl(TextBox14.Value) / 100) * 20

End Sub

 

[hsayar]

Teşekkür ederim Sn.fpc

Yalnız ben aşağıdaki gibi bir kod kullanıyorum.

Bu yüzden sizin verdiğiniz kodu uygulayamadım.

Benim kodların hangi kısmına eklemem gerekir acaba?

aşağıdaki gibi değiştiriniz, kontrol kodları herzaman işlem kodlarının önüne yazılır kiş hata almayalım

Private Sub CommandButton190_Click()
If IsEmpty(Trim(textbox4)) Then
   MsgBox "Boş geçilemez", vbCritical, "UYARI"
   textbox4.SetFocus
   Exit Sub
End If

TextBox13 = (CDbl(TextBox4.Value) * 0.25)
TextBox14.Value = Val(TextBox4.Value) - Val(TextBox13.Value)

TextBox15 = (CDbl(TextBox14.Value) / 100) * 20
TextBox16 = (CDbl(TextBox14.Value) / 100) * 20
TextBox19 = (CDbl(TextBox14.Value) / 100) * 20
TextBox20 = (CDbl(TextBox14.Value) / 100) * 20
TextBox21 = (CDbl(TextBox14.Value) / 100) * 20

End Sub

 

[hsayar]

If IsEmpty(Trim(textbox4)) Then
satırını
If IsNumeric(textbox4) Then
diye değiştirmeniz daha iyi olacaktır böylelikle değerin sayı olup olmadığını kontrol edersiniz.

 

[teksen]

Teşekkür ederim.