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
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