[Resolvido]Verificar se Campos são nulos (Exceto um campo)

Ola Pessoal!!!

Adaptei uma função do João Paulo em meu BD. Esta rotina verefica se há campos (TextBox e ComboBox) nulos, e caso sim, abre um MsgBox e coloca o campo nulo em foco.

O problema: Tenho um campo que é opcional o preenchimento, ou seja, pode ser nulo. É possível alterar a função abaixo de forma que um dos meus campos não seja avaliado?

Public Function ValidaPreenchimento() As Boolean
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then ' Altera: incluso: "Or ctl.ControlType = acComboBox"
If IsNull(ctl.Value) Then
MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
ctl.SetFocus
Exit Function
End If
End If
Next
End Function

Grato pela atenção

Luiz Gustavo

Boa Luiz,

Coloque
If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) and ctl.name<>"NomeDoControlo" Then

Olá
Alexandre
Grato pela atenção.

Alterei conforme sua sugestão, mas não funcionou.
Será que fiz algo errado? Ficou assim:

Public Function ValidaPreenchimento() As Boolean
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox And ctl.Name <> "Cheque" Then
If IsNull(ctl.Value) Then
MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
ctl.SetFocus
Exit Function
End If
End If
Next
End Function

Luiz,

esqueceu-se dos parêntesis
If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) And ctl.Name <> "Cheque" Then

Valeu Amigão.
Agora funcionou legal.
Eram só os parêntisis! Peço desculpas pela falta de atenção.

Estou pondo resolvido no tópico, mas ainda estou com uma dificuldade na função, se você puder ajudar-me, agradeço.

Satisfeita a função, ou seja, após verificação dos campos, como faço para executar uma outra rotina, por exemplo:

Se todos os campos estão preenchidos então abra o MeuForms

Obrigado

Luiz Gustavo

Oh, Luiz

Ao escrever código, tente perceber o que ele faz e o seu ciclo.
Veja se é isto que quer
Public Function ValidaPreenchimento() As Boolean
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then ' Altera: incluso: "Or ctl.ControlType = acComboBox"
If IsNull(ctl.Value) Then
MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
ctl.SetFocus
Exit Function
End If
End If
Next
DoCmd.OpenForm "MeuForms"
End Function

Olá
Alexandre. Muito grato por sua atenção.
Funcionou certinho.

Sou iniciante no Access e as vezes tenho muita dificuldade de entender certas funções. Na realidade não conheço a linguagem VB e isto dificulta muito. Não tenho experiência alguma em programação. Tudo que sei de Access, aprendi aqui no forum. Na função do João Paulo, algumas coisas entendo, outras não, por exemplo:

Dim ctl As Control: Criou-se uma variável (ctl), Dim ????, As Control ????
For Each ctl In Me.Controls: ???????
Next: ?????

Mais uma vez, obrigado

Boa noite, Luiz

Foi definida a variável (ctl) para tipo controlo
Foi criado um ciclo que, traduzido, significa
por cada controlo no conjunto de controlos do formulário activo -> For Each ctl In Me.Controls
no final das instruções de ciclo tem de ser fechado com next. Faz parte da sintaxe do ciclo.
estude na ajuda.

Valeu Alexandre.

Muito obrigado por sua atenção.

Abraços

Luiz Gustavo