Chegem De Campos Em Branco No Formulário

[AlexMunhoz]

Bom dia pessoal!

Seguinte, tenho um formulário de cadastro com muitos campos e função que fiz para checar se existe algum campo em branco ficou muito grande.

Gostaria de saber se tem como checar se existe algum campo em branco no formulário sem precisar especificar campo a campo?

Grato.

[Guest - André -]

cara tá na mão....

você só adapta pra cada tipo de controle....

repare q para cada tipo de controle a propriedade para verificar se o campo está vazio é diferente, está em vermelho, repare q só fiz para textbox e checkbox, ai você faz para o resto

Dim obj As Control

For Each obj In Form1.Controls

If TypeOf obj Is TextBox Then

If obj.Text = "" Then MsgBox "O campo " & obj.Name & " não foi preenchido!"

End If

If TypeOf obj Is CheckBox Then

If obj.Value = 0 Then MsgBox "O campo " & obj.Name & " não foi checado!"

End If

Next

faloww