TextBox boş ise

[teksen]

Arkadaşlar merhaba,

Form üzerinde TextBox103 e yazılması için bir hesap yaptırıyorum.

Fakat TextBox102 boş ise TextBox103 e yazmasını istemiyorum

Bunun için nasıl bir kod kullanabiliriz acaba?

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
If TextBox102 = "" Then
MsgBox "Textbox102 Boş olmaz"
Exit Sub
End If
[COLOR="SeaGreen"]'diğer kodlarınız.[/COLOR]
End Sub

 

[1Al2Ver]

Arkadaşlar merhaba,

Form üzerinde TextBox103 e yazılması için bir hesap yaptırıyorum.

Fakat TextBox102 boş ise TextBox103 e yazmasını istemiyorum

Bunun için nasıl bir kod kullanabiliriz acaba?

Sayın teksen, form üzerindeki textBox'a yazması için bir hesap yaptırmak ve yine aynı form üzerinde başka bir textbox'a da sabit bir rakam yazmak istiyorum, formülü paylaşırmısınız? Teşekkür ederim

 

[teksen]

Dosyanızı buraya eklerseniz yardımcı olmaya çalışırım.

 

[1Al2Ver]

İlginize teşekkürler, aslında bir çok eksiği var, userformdaki tüm textbox'lara ve butonlara veri yazılması gerek ama önemli bir iki örnek olursa belki ben devam edebilirim, saygılarımla

 

[1Al2Ver]

Textbox

Dosyanızı buraya eklerseniz yardımcı olmaya çalışırım.

Sayın teksen, dosya eklendi, yardımlarınızı bekliyorum, saygılar

 

[mevlutali]

UserForm daki tüm textbox ların boş geçilmemesi için nasıl bir komut yazmamız gerekiyor?

 

[AdemCan]

Merhaba Sn. mevlutali,
Bu kod ile yapabilirsiniz.

Dim t As Control
For Each t In Me.Controls
    If TypeName(t) = "TextBox" Then
    If t.Value = "" Then
    MsgBox "Boş alan bırakmayınız!", vbInformation, "Bilgi"
    Exit For
    End If
    End If
Next

 

[Saban Sertkaya]

Alternatif olsun.

If Textbox1 = "" then 
Msgbox "Lütfen Textbox1'i boş geçmeyin"
exit sub
elseif Textbox2 = "" then 
Msgbox "Lütfen Textbox2'yi boş geçmeyin"
exit sub 
elseif Textbox3 = "" then 
Msgbox "Lütfen Textbox3'ü boş geçmeyin"
exit sub 
end if

Elseif 'leri istediğiniz kadar çoğaltabilirsiniz.