[Resolvido]Ploblema com Código

Boa Noite Amigos.

É o seguinte:
Ao sair (Click num Botão) de um FormsSimples é verificado se todos os campos estão preenchidos e é pedido confirmação para salvar ou não. Os códigos, isoladamente, funcionam a contento.

O Problema é o seguinte:
Quando clico no botão, havendo um campo em branco, o foco vai para este campo. Até ai tudo certo. Mas se eu ao invés de preencher o campo e clicar no botão sair novamente, simplesmente sai do Forms.

O que estou fazendo errado?
Private Sub Comando19_Click()
If Dirty = True Then
If MsgBox("Salvar?", vbYesNo, "Aviso") = vbYes Then
Call ValidaPreenchimento
DoCmd.RunCommand acCmdSaveRecord
Else
Form.Undo
DoCmd.Close
End If
Else
DoCmd.Close
End If
End Sub

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

Obrigado

Luiz Gustavo

DoCmd.Close Não estaria no local errado?

Kinhosinf.
Agradeço a atenção.

Meus conhecimentos são limitados.
Mas acredito que os DoCmd.Close (os dois) estão corretos. Não sei!!!

Poderia ser no If Dirty = True then? Estou considerando: "Se o formulário estiver sujo então...".
Isto está correto?

Abraços

Bom dia,

A função ValidaPreenchimento deverá devolver um valor boleano /Sim/Não)
No código do botão, em vez de
Call ValidaPreenchimento
DoCmd.RunCommand acCmdSaveRecord
deverá ser
If ValidaPreenchimento Then DoCmd.RunCommand acCmdSaveRecord

Obs.: Comando19 é um nome que não ajuda na identificação do botão

Boa tarde Alexandre.
Grato pela dica sobre o Botão.
E muitíssimo obrigado pela solução.
Ficou perfeito.
Valeu!!!

Ficou assim:
Private Sub Sair_Click()
If Dirty = True Then
If MsgBox("Salvar?", vbYesNo, "Aviso") = vbYes Then
If ValidaPreenchimento Then
DoCmd.Close
End If
Else
Form.Undo
DoCmd.Close
End If
Else
DoCmd.Close
End If
End Sub