Boş Textboxları kontrol etmek

[Recep İpek]

Aşağıdaki kodlar ile Userform üzerindeki Textboxların boş olup olmadığını kontrol ettirmeye çalışıyorum.Biliyorum basittir ama,
bir türlü boş olanları Msgbox ile gösteremedim.

[vb:1:800ebe9e18]
Private Sub CommandButton1_Click()
Dim mesaj As Variant
For i = 0 To Controls.Count - 1
If TypeName(Controls(i)) = "TextBox" Then
If Controls(i).Value = "" Then
mesaj = Controls(i).Name
End If
End If
mesaj = mesaj & Chr(13)
Next i
MsgBox mesaj & " alanları boş olamaz"
TextBox1.SetFocus
End Sub
[/vb:1:800ebe9e18]

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:3d99a8b82e]Private Sub CommandButton1_Click()
Dim mesaj As Variant
For i = 0 To Controls.Count - 1
If TypeName(Controls(i)) = "TextBox" And Controls(i).Value = "" Then
mesaj = mesaj & Chr(13) & Controls(i).Name
End If
Next i
MsgBox mesaj & Chr(13) & " alanları boş olamaz"
TextBox1.SetFocus
End Sub[/vb:1:3d99a8b82e]

 

[Recep İpek]

leventm Hocam,

Bende bu şekilde denemiştim ama;

Run-time error '438'

Object doesn't support this property or method

hatası alıyorum.

Büyük ihtimalle eksik referans hatası.

Şimdilik aşağıdaki şekilde sorunumu çözdüm.

Teşekkürler.

[vb:1:c62b087417]
Private Sub CommandButton1_Click()
Dim mesaj As Variant

For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
If ctrl.Value = Empty Then
mesaj = mesaj & ctrl.Name & Chr(13)
End If
End If
Next

If mesaj <> "" Then
MsgBox mesaj & Chr(13) & " alanları boş olamaz"
TextBox1.SetFocus
Else
Exit Sub
End If
End Sub

[/vb:1:c62b087417]