Private Sub CommandButton1_Click()
For X = 21 To 40
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, "DİKKAT !"
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next X
selamlar
CommandButton1 i tıkladığım zaman hata veriyor ve
If Controls("TextBox" & X).Value = Empty Then
satırınısarı gösteriyor
hata nerede acaba
For X = 21 To 40
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, "DİKKAT !"
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next X
selamlar
CommandButton1 i tıkladığım zaman hata veriyor ve
If Controls("TextBox" & X).Value = Empty Then
satırınısarı gösteriyor
hata nerede acaba