[Resolvido]Contar Campos vazios no Form

Olá pessoal,

Alguém saberia como fazer para retornar a quantidade de campos nulos ou vazios no formulário, estou querendo colocar uma barra de progresso indicando o percentual de campos preenchidos no form.

Obrigado.

A única forma que imagino é verificar campo a campo num laço usando o nome do campo.
Mas para isso o nome dos campos deve ter um padrão, tipo: Texto1, Texto2, Texto3

Num laço for, limitar até a quantidade de campos existentes e utilizar um contador para somar os campos nulos.
Algo mais ou menos assim num botão de comando por exemplo:

Código:

Dim nomeCampo As String
Dim contador As Integer

For i = 1 To 3 'onde 3 é o total de caixas de texto a serem verificadas

nomeCampo = "Texto" & i

    If IsNull(Me(nomeCampo)) = True Then
        contador = contador + 1
    End If
   
Next

Me.txtQtdNulos = contador 'Criar uma caixa de texto para pegar a quantidade de nulos

Me.Refresh

Olá Reynaldo,

Segue função que verifica os controles (caixa de texto, caixa de combinação e etc) para habilitar para preenchimento. Voce pode adaptá-la à sua necessidade.

Segue:

Public Function FN_LiberaCampos()
'Varialvel que assume o controle(textbox,combobox,listbox e etc) do form
Dim ctl As control

'For Each ctl In Me.Controls = Para cada controle no formulário

For Each ctl In Me.Controls

'Se o tipo do controle for Caixa de Texto então
If TypeOf ctl Is TextBox Then
ctl.enabled = True 'habilita
End If

'Se o tipo do controle for Caixa de Combinação então
If TypeOf ctl Is ComboBox Then
ctl.enabled = True 'habilita
End If

'Se o tipo do controle for Grupo de Opção então
If TypeOf ctl Is OptionGroup Then
ctl.enabled = True 'habilita
End If

'Se o tipo do controle for Caixa de Seleção então
If TypeOf ctl Is CheckBox Then
ctl.enabled = True 'habilita
End If

'Se o tipo do controle for Caixa de Listagem então
If TypeOf ctl Is ListBox Then
ctl.enabled = True 'habilita
End If
Next

End Function


Espero ter ajudado.

Boa sorte

Obrigado pessoal, me ajudaram bastante...
Vou adaptar minha aplicação com estes exemplos.