[Resolvido]Interromper validação dos campos

Boa tarde amigos,

Estou utilizando o código abaixo para validação de campos em meu sistema. Preciso de uma ajuda.

Se eu resolver interromper a inclusão do registro pressionando um botão Cancelar, como faço isso? Não consegui interromper a função.

Private Sub SairSalvar_Click()
'By JPaulo ® Maximo Access
If ValidaCamposNulos = False Then
Cancel = True
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Registro Salvo com Sucesso...", vbInformation
DoCmd.Close
End If
End Sub


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

Agradeço a ajuda

Menezes

Não entendi muito bem. Você que interromper a gravação do registro? Mas esse processo é muito rápido para ser interrompido assim.

PS.: A sala de Repositório de Exemplos se destina exclusivamente à postagem de exemplos em mdb/accdb. Transferi o tópico para a sala correta.

Bom dia Criquio,

Primeiro desculpe pela sala errada, não observei onde estava.

Segundo, tava meio avoado, o código só funciona seu eu clicar no botão sair, portanto, minha questão não tem sentido.

Grato e desculpe-me o transtorno.

Menezes

Assunto resolvido

Acontece, hehehe.

Grato pelo retorno. O fórum agradece.