TextBox 1.2.3.4.........! herhangibiri boş ise kayıt iptali...!!!

[ocamsul]

Arkadaşlar bu gün malum bayram sonrası bende fırsattan istifade çalışmalarıma bakıyorum. Aşağıda kod dizisi yeni hesap kaydı için çalışıyor ancak; kişiler bunu kullanırken veri kaybını engellemek için tüm TextBoxları doldursunlar istiyorum. Herhangi biri boş ise uyarı versin ve o TextBox a giderek kaydın devamını sağlasın. tüm TextBoxlar dolu ise kayıt yapsın istiyorum. Yardımlarınıza şimdiden teşekkürler.

Sheets("HESAP").Select
Range("a2").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
If ActiveCell.Offset(0, 1).Text = TextBox8.Text Then
MsgBox "Seçmiş olduğunuz Hesap kaydı zaten var!!!"
Exit Sub
End If
Loop
If Range("A4").Value = "" Then
Range("A4").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Textbox kutularındaki verileri hücrelere yazdırır.
ActiveCell.Offset(0, 1).Value = TextBox8.Value
ActiveCell.Offset(0, 2).Value = TextBox9.Value
ActiveCell.Offset(0, 3).Value = TextBox10.Value
ActiveCell.Offset(0, 4).Value = TextBox11.Value
ActiveCell.Offset(0, 5).Value = TextBox12.Value
ActiveCell.Offset(0, 6).Value = TextBox13.Value
ActiveCell.Offset(0, 7).Value = TextBox14.Value
ActiveCell.Offset(0, 8).Value = TextBox15.Value

 

[omerceri]

TextBox'larınıza TextBox1......TextBoxn veya Kutu1.......Kutun gibi adının sonunda ardışık sayı içeren isimler verirseniz. Aşağıdaki kodu lullanabilirsiniz
For i = 1 to TextBoxSayısı
if IsNull(Controls("TextBox" & i)) Then
MsgBox "Bilgi Girişi Yapmadınız"
Controls("TextBox" & i)) .SetFocus
Exit Sub
End if
Next
Not ifadesini yanlış yazdığım için sildim.

 

[Korhan Ayhan]

Selamlar,

Kayıt işlemi için kullandığınız kodların en başına aşağıdaki kodu uygulayıp denermisiniz.

Sub KAYIT()
For X = 8 To 15
If Controls("TextBox" & X).Value = Empty Then
MsgBox ("Kayıt işlemi için gerekli tüm bölümlere veri girmelisiniz." _
& Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "Dikkat !"
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next
'Sizin Kodlarınız.
End Sub

 

[ocamsul]

Sn: COST_CONTROL tam istediğim gibi çok teşekkürler.