Verificação de campos nulos em um formulário

Boa noite,


Fiz uma validação para os campos de um formulários que não podem ser nulos, ou seja validação para os campos que não podem ser nulos.
Ficou muito trabalhoso, pesquisando vi a propriedade controls, como posso utilizá-la, vi o código abaixo, aqui no fórum, mas está dando erro

MÉTODO OU MEMBRO DE DADOS NÃO ENCONTRADO, ONDE ESTÁ O PROBLEMA ?


Private Function ValidaCamposNulos() As Boolean
'By JPaulo ® Maximo Access
ValidaCamposNulos = True
Dim ctl As Controls
'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

Olá Wagner,
Tente tirar o apóstrofe ' da linha abaixo:

'Dim strName As String

Deixe:

Dim strName As String

Creio que o código não esteja localizando a variável "strName", pois a linha que tem o apóstrofe é lida como comentário no código.

Não deu certo, vc teria um exemplo prático da instrução CONSTROLS

Verifique as referencias VBA, por este meu exemplo;

http://dl.dropboxusercontent.com/u/771097/ValidaCamposNulos_II.rar