- Katılım
- 15 Mart 2005
- Mesajlar
- 42,243
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selam arkadaşlar,
Aşağıdaki kodda form üzerinde bulunan textboxların boş olup olmadığını kontrol etmek için bir döngü oluşturdum. Benim yapmak istediğim. Bu textboxtlardan hangisi boş bırakılırsa uyarı verdikten sonra ona SetFocus uygulamak. Bu işlem tüm textboxlar dolana kadar devam etsin. Eğer hepsi dolu koşulu gerçekleşirse kayıt işlemi gerçekleşsin.
Private Sub CommandButton1_Click()
For a = 1 To 4
If Controls("TextBox" & a).Value = "" 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, "DİKKAT !"
Controls("TextBox" & a).SetFocus
.....
Aşağıdaki kodda form üzerinde bulunan textboxların boş olup olmadığını kontrol etmek için bir döngü oluşturdum. Benim yapmak istediğim. Bu textboxtlardan hangisi boş bırakılırsa uyarı verdikten sonra ona SetFocus uygulamak. Bu işlem tüm textboxlar dolana kadar devam etsin. Eğer hepsi dolu koşulu gerçekleşirse kayıt işlemi gerçekleşsin.
Private Sub CommandButton1_Click()
For a = 1 To 4
If Controls("TextBox" & a).Value = "" 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, "DİKKAT !"
Controls("TextBox" & a).SetFocus
.....