[Resolvido]Fechar Forms após Função ValidaPreenchimento

Boa noite amigos!
Antes de prosseguir, gostaria de registrar, que o assunto em pauta já foi colocado no forum, por mim, num outro tópico e infelizmente me precipitei em colocar o "Resolvido", desta forma estou retomando.

Estou usando a "Função ValidaPreenchimento" do Mestre JPaulo num FormsSimples.
A função funciona perfeitamente.
O problema é que não estou conseguindo que o formulário feche após a confirmação de que todos os campos estão preenchido.

Está assim:
Private Sub SairSalvar_Click()
If ValidaPreenchimento Then
DoCmd.Close
End If

Também tentei assim:
Private Sub SairSalvar_Click()
If ValidaPreenchimento = True Then
DoCmd.Close
End If

Funçao:
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.Visible = True Then
If IsNull(ctl.Value) Or (ctl.Value = 0) 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

Bom Dia ;

Boa tarde JPaulo.

Estou digitando de um tablete.
Assim que baixar o arquivo, dou retorno.

Obrigado.

Olá Mestre JPaulo.
Baixei o arquivo e ele funciona perfeitamente.

No entanto, quando aplico em meu BD da erro de compilação!

Entendo também que a função ValidaPreenchimento é mais eficiênte em meu BD do que a ValidaCamposNulos.

Posto aqui parte de meu BD. Criei no Forms 2 Botões, um com a funçao ValidaPreenchimento e outro com a função ValidaCamposNulos.

Se lhe for possível, peço a gentileza de dar uma olhadinha.

Muito obrigado.

Luiz Gustavo

Boa noite Luis,

Só uma idéia:

Ou você declara a variável "Cancel" ou retira "Option Explicit" do início do código.

Deve funcionar.


Nivaldo

Olá Nivaldo.
Desculpe-me pela demora no retorno.
Você estava certo.
Retirei a "Option Explicit" e não deu mais o erro de compilação.

No entanto foi necessário uma alterações no código para funcionar a contento em meu DB.

Ficou assim:
Private Function ValidaCamposNulos() As Boolean
'By JPaulo ® Maximo Access
'Alterado por Luiz Gustavo 09/07/2012
'Mesclado as Funções ValidaCamposNulos com a funçao ValidaPreenchimento (Ambas do Mestre JPaulo)
Dim ctl As Control
ValidaCamposNulos = True
For Each ctl In Me.Controls
If (ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox) And ctl.Visible And ctl.Name <> DifVlr = True Then
If IsNull(ctl.Value) Or (ctl.Value = 0) Then
ValidaCamposNulos = False
MsgBox "O Campo '" & ctl.Tag & "' não pode ficar em branco"
ctl.SetFocus
Exit Function
End If
End If
Next ctl
End Function

Meu muito obrigado ao Nivaldo e ao Mestre JPaulo
Boa Noite.

Obrigado pelo retorno Luis. O fórum agradece.

Nivaldo