Textbox'lardan 1 tanesi bile boş ise işleme devam etmesin

[serif_007]

Merhabalar;

6 adet textbox'ım var. Bu textboxlardan 1 tanesi bile boş olması durumunda işleme devam etmesin istiyorum.

If TextBox1.Value = "" Then
MsgBox " TextBox1 boş geçildi!"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "TextBox2 boş geçildi!"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox " TextBox3 boş geçildi!"
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox " TextBox4 boş geçildi!"
Exit Sub
End If
If TextBox5.Value = "" Then
MsgBox " TextBox5 boş geçildi!"
Exit Sub
End If
If TextBox6.Value = "" Then
MsgBox " TextBox6 boş geçildi!"
Exit Sub
End If

bunu denedim fakat sonuç alamadım

 

[leylabalse]

Merhabalar;

6 adet textbox'ım var. Bu textboxlardan 1 tanesi bile boş olması durumunda işleme devam etmesin istiyorum.

If TextBox1.Value = "" Then
MsgBox " TextBox1 boş geçildi!"
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox "TextBox2 boş geçildi!"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox " TextBox3 boş geçildi!"
Exit Sub
End If
If TextBox4.Value = "" Then
MsgBox " TextBox4 boş geçildi!"
Exit Sub
End If
If TextBox5.Value = "" Then
MsgBox " TextBox5 boş geçildi!"
Exit Sub
End If
If TextBox6.Value = "" Then
MsgBox " TextBox6 boş geçildi!"
Exit Sub
End If

bunu denedim fakat sonuç alamadım

bunlar boş geçtiğinizde mesaj kutusu çıkarır.

If TextBox1.Text = "" Then
mesaj = MsgBox("TextBox6 boş geçildi!", vbOKOnly + vbExclamation, "UYARI!")
TextBox1.SetFocus
Exit Sub

 

[serif_007]

bunlar boş geçtiğinizde mesaj kutusu çıkarır.

If TextBox1.Text = "" Then
mesaj = MsgBox("TextBox6 boş geçildi!", vbOKOnly + vbExclamation, "UYARI!")
TextBox1.SetFocus
Exit Sub

bu da uyarı veriyor fakat yine kayıt yapmaya devam ediyor

 

[leylabalse]

bu da uyarı veriyor fakat yine kayıt yapmaya devam ediyor

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "" Then
MsgBox "TextBox1 boş geçilemez!"
TextBox1.SetFocus
Cancel = True
End If
End Sub

 

[serif_007]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Value = "" Then
MsgBox "TextBox1 boş geçilemez!"
TextBox1.SetFocus
Cancel = True
End If
End Sub

Yine kayıt yapmaya devam ediyor uyarı da vermiyor

 

[leylabalse]

Yine kayıt yapmaya devam ediyor uyarı da vermiyor

dosyanı atarsan bakalım. fakat bir upload sitesine yüklersen buradaki dosyaları indiremiyorum çünkü.

 

[Greenblacksea53]

Dim TextDolu() As Variant
    Dim i As Integer
    Dim isEmpty As Boolean
    
 
    TextDolu = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5)
    
 
    For i = LBound(TextDolu) To UBound(TextDolu)
        If TextDolu(i).Text = "" Then
            isEmpty = True
            Exit For
        End If
    Next i
    
 
    If isEmpty Then
        MsgBox "Lütfen tüm text boxları doldurun!", vbExclamation, "Uyarı"
    Else
        ' textboxlar dolu ise işlemlerini burada devam ettirmeniz gerekiyor....
    End If

Kodları kullanarak deneyin,,

 

[serif_007]

kodun yerinde değişiklik yaparak sorunu çözdüm. kendi hatam teşekkür ederim

 

[Necdet]

kodun yerinde değişiklik yaparak sorunu çözdüm. kendi hatam teşekkür ederim

Merhaba.
Nasıl çözdüğünüzü de açıklarsanız, bilginizi kendinize saklamamış olursunuz.