Textboxlar boş bırakılamasın

[BG]

örnekte gönderdiğim userform üzerindeki 3 adet textboxın mutlaka doldurulmuş olmasının kontrol edilmesi gerekmektedir. for next döngüsü ile bu problemi nasıl çözebilirim. teşekkür ederim.

örnek: textbox1 dolu fakat textbox2 ve textbox3 boş ise işlem yapılamasın, kısacası hepsinin doldurulmuş olması gereksin,msgbox ile uyarı da alınabilir.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
For a = 1 To 3
If Controls("textbox" & a) = "" Then
MsgBox "Lütfen veri giriniz.", 32, "Uyarı"
Controls("textbox" & a).SetFocus
Exit For
End If
Next
End Sub

 

[Ayhan Ercan]

Merhaba,

Çözüm hazırlayasıya kadar Levent hocam cevap vermiş, benimkisi de değişik bir örnek olsun...

Private Sub CommandButton1_Click()
For i = 1 To 3
If Controls("textbox" & i) = "" Then
MsgBox i & " nolu Textbox boş bırakılmış.. Lütfen Textboxları dolsurmadan işlem yaptırmayınız..!", vbCritical, "UYARI"
Exit Sub
End If
Next
End Sub

 

[BG]

Sayın Levent Menteşoğlu ve Ayhan Ercan

İlginize teşekkür eder iyi çalışmalar dilerim.

 

[Orion1]

Alternatif.

Dim nesne As Control
For Each nesne In Controls
    If TypeName(nesne) = "TextBox" And nesne = Empty Then
        MsgBox nesne.Name & " Boş Bırakılmış.."
        Exit For
    End If
Next

 

[BG]

Evren Hocam sizede çok teşekkür ederim, hep birlikte verdiğiniz , for each ve for next ile ilgili verdiğiniz cevaplar için tekrar çok teşekkür ederim çok yararlı oldu, sorumu şöyle değiştirebilirmiyim acaba, if and veya if or ile bir çözüm bulunabilirmiydi ? if and ve if or mantığını iyice anlamak açısından soruyorum,

örnek1: Eğer textbox1, textbox2 ve textbox3 boş ise uyarı verebilir (if - and )

örnek2: Eğer textbox1 veya textbox2 veya textbox3 bu üçünden birinin boş olması durumunda uyarı verebilir. iliginize şimdiden teşekkür ederim. (if - or)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

IF-ELSEIF-END IF yöntemi;

Private Sub CommandButton1_Click()
    If TextBox1 = Empty Then
    MsgBox "TextBox1 Boş !", vbCritical: TextBox1.SetFocus
    ElseIf TextBox2 = Empty Then
    MsgBox "TextBox2 Boş !", vbCritical: TextBox2.SetFocus
    ElseIf TextBox3 = Empty Then
    MsgBox "TextBox3 Boş !", vbCritical: TextBox3.SetFocus
    End If
End Sub

IF-OR-END IF yöntemi;

Private Sub CommandButton1_Click()
    If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Then
    MsgBox "TextBoxlardan birisi boş lütfen kontrol ediniz !", vbCritical
    Exit Sub
    End If
End Sub

 

[BG]

Sayın Korhan Ayhan

Selamlar,

Aşağıdaki kodları kullanabilirsiniz.

IF-ELSEIF-END IF yöntemi;

Private Sub CommandButton1_Click()
    If TextBox1 = Empty Then
    MsgBox "TextBox1 Boş !", vbCritical: TextBox1.SetFocus
    ElseIf TextBox2 = Empty Then
    MsgBox "TextBox2 Boş !", vbCritical: TextBox2.SetFocus
    ElseIf TextBox3 = Empty Then
    MsgBox "TextBox3 Boş !", vbCritical: TextBox3.SetFocus
    End If
End Sub

IF-OR-END IF yöntemi;

Private Sub CommandButton1_Click()
    If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Then
    MsgBox "TextBoxlardan birisi boş lütfen kontrol ediniz !", vbCritical
    Exit Sub
    End If
End Sub

Hocam tam olarak anlatmaya çalıştığım gibi olmuş, gece vakti sizi yordum, çok teşekkür ederim hakkınızı helal edin, iyi geceler...

 

[INSMUH]

Private Sub ekle_Click()
If Range("A8") = "" Then
Range("A8").Select
ActiveCell = 1
ActiveCell.Offset(0, 1).Value = fatura.Value
ActiveCell.Offset(0, 3).Value = tarih.Value
ActiveCell.Offset(0, 5).Value = tutar.Value
Else
[A65536].End(xlUp).Offset(1, 0).Select
ActiveCell = ActiveCell.Offset(-1, 0) + 1
ActiveCell.Offset(0, 1).Value = fatura.Value
ActiveCell.Offset(0, 3).Value = tarih.Value
ActiveCell.Offset(0, 5).Value = tutar.Value
End If


If fatura = Empty Then
MsgBox "fatura Boş !", vbCritical: fatura.SetFocus
ElseIf tarih = Empty Then
MsgBox "tarih Boş !", vbCritical: tarih.SetFocus
ElseIf tutar = Empty Then
MsgBox "tutar Boş !", vbCritical: tutar.SetFocus
End If


'fatura = ""
'tarih = ""
'tutar = ""
fatura.SetFocus
End Sub

Bu kodlarda imleci unutulan textbox a nasıl getirebilirim?
fatura.setfocus sayfaya veri gönderdikten sonra ilk textbox a dönsün diye,
fatura="" kullandığımda ise textbox ı temizliyor yanı verileri tekrar girmem gerekiyor..

 

[Ayhan Ercan]

Merhaba

Sorunuzun cevabı vermiş olduğunuz kodlarda mevcut.:

If fatura = Empty Then
MsgBox "fatura Boş !", vbCritical: fatura.SetFocus
ElseIf tarih = Empty Then
MsgBox "tarih Boş !", vbCritical: tarih.SetFocus
ElseIf tutar = Empty Then
MsgBox "tutar Boş !", vbCritical: tutar.SetFocus
End If


İlgili textbox boş ise mesaj ile uyarı veriyor ve imlecin yine ilgili textboxta olmasını sağlıyor...

 

[INSMUH]

Evet haklısınız,buna tıp da bakar körlük deniyor Dün gece farkettim ama evde int. olmadığı için soruyu düzeltemedim.
Bir sorum daha olacak, gece userformu kurcalarken birşeyleri bozdum ve düzeltemedim, textbox lara değer girdiğimde "enter" tuşu ile bi alttaki textbox a geçiyor ve işlemler oldukça hızlı yapılıyordu şimdi ise "tab" tuşu olmadan hareket etmiyor, neredeyse tüm true-false olaylarını denedim yine olmadı?
Teşekkürler,