[Resolvido]Validação de campos vazios

Bom dia a todos!

gostaria de adaptar este código abaixo no meu projeto mas não funciona no meu formulário continuo, criei um botão onde validaria tudo se existem os abençoados campos vazios,

a ideia seria se todos as linha estiverem preenchidas me retorne uma msg positiva e fechar o form, se não avisar que tem campo vazio

em linhas individuais funciona mas um para todos não roda


Private Sub ValidaPreenchimento_Click()
'By JPaulo ® Maximo Access
If ValidaCamposNulos = False Then
Cancel = True
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Registro Salvo com Sucesso...", vbInformation
DoCmd.Close
End If
End Sub


Private Function ValidaCamposNulos() As Boolean
'By JPaulo ® Maximo Access
ValidaCamposNulos = True
Dim ctl As Control
Dim strName As String
For Each ctl In Me.Controls
If IsNull(ctl) Then
strName = ctl.Controls(0).Caption
ValidaCamposNulos = False
MsgBox "Preencha o Campo " & Chr(34) & strName, vbCritical
ctl.SetFocus
Exit Function
End If
Next ctl
End Function


agradeço pela atenção

Bom dia, noisnafita
Veja assuntos já debatidos que abordam o trabalho com subformulários
http://maximoaccess.forumeiros.com/t560-resolvidosomar-campos-calculados-de-um-subform
http://maximoaccess.forumeiros.com/t4736-resolvidolimpar-campos-do-form-e-do-subform

Olá,

dei uma lida nos tópicos e creio que não me atendem.

bom pensei em algo diferente tenho um botão principal no cabeçalho que MARCA todos check box

e ao carregar coloquei como locked o check box baixar, gostaria de reabilita-lo após alguma função na linha de edição.

o form só mostra os checkbox que estão como Não, ou seja quando marco ele a linha some deste form.

ou uma outra solução para que me avise que tem campo vazio


ficou meio confuso?

Boa tarde

Estou encerrando minha pergunta, fiz uma outra alternativa para minha lista que atende as minhas necessidades

agradeço a atenção.