Cancelar salvamento de registro e fechamento de formulário

Tenho um formulário em que preciso utilizar uma função(abaixo) que cancela o salvamento do registro caso determinados campos não estejam preenchidos.

Chamei esta função em Form_BeforeUpdate e funcionou.

Código:

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If criticaCampos = False Then
        MsgBox "É obrigatório o preenchimento do campo indicado a seguir.", _
                vbCritical, "Preenchimento Incompleto"
        Cancel = True '[color=red]Conseguiu para o salvamento[/color]
    End If
End Sub

Agora preciso que, ao tentar fechar o formulário, a mesma função seja usada para cancelar tanto o fechamento como o salvamento do registro. Ao fazer o procedimento acima em Form_Unload, consegui cancelar o fechamento do formulário, mas quando o evento Form_Unload é acionado, o registro é sendo salvo.

Código:

Private Sub Form_Unload(Cancel As Integer)
    If criticaCampos = False Then
        If MsgBox("Deseja fechar o formulário e cancelar o registro?", vbQuestion + vbYesNo, "Aviso de Férias") = vbYes Then
          Me.Undo
          DoCmd.Close
        Else
            Cancel = True '[color=red]Cancela o fechamento, mas não impede o salvamento[/color]
        End If
    End If
End Sub

Penso que o melhor aqui é interromper o comando Fechar no evento Form_BeforeUpdate, mas a opção Cancel=True não consegue fazer isso.

:::Função:::

Código:

Private Function criticaCampos()
'Identifica campos nulo com preenchimento obrigatório
    Dim ctl As Control
    criticaCampos = True
   
    For Each ctl In Me.Controls 'Para cada campo nulo com a marca(tag) igual a 1, exibie mensagem de erro.
        If ctl.Tag = 1 Then
            If IsNull(ctl) Then
                ctl.SetFocus
                strCampo = UCase(ctl.Controls(0).Caption)
                criticaCampos = False
                Exit Function
            End If
        End If
    Next
   
End Function


Bom dia Rgondim.....


Podemos tentar dessa forma...

Private Sub Form_Unload(Cancel As Integer)
If criticaCampos = False Then
If MsgBox("Deseja fechar o formulário e cancelar o registro?", vbQuestion + vbYesNo, "Aviso de Férias") = vbYes Then
Me.Undo
DoCmd.Close acForm, "SeuFormulário", acSaveNo

End If
End If
End Sub

Teste.....

Abraços.

Eu tive uma situação nova: agora, quando o evento Form_Unload, o registro é cancelado (como se eu apertasse Esc).

Eu gostaria de poder, ao clicar em fechar, o registro continuasse 'sujo'(dirty). Ao exibir a mensagem, eu tivesse a opção de escolher entre cancelar o fechamento e voltar ao formulário ou fechar e apagar as alterações

Veja se serve, é só adaptar:

Pressione o X do form para fechar e veja o resultado.

Private Sub Form_Unload(Cancel As Integer)
'By JPaulo ® Maximo Access
Dim ctl As Control
x = MsgBox("Deseja fechar o formulário e cancelar o registro ?", vbYesNo, "Fecho")
Select Case x
    Case vbYes
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            ctl.Value = ""
        End If
    Next ctl
    Case vbNo
        Cancel = True
End Select
End Sub

JPaulo,
Testei e ocorreu erro em ctl.Value = "":
"Não é possível atribuir valor ao controle."

A solução do Silvio também não funcionou, porque ao descarregar o formulário, o registro EmSujo(Dirty) é salvo automaticamente:
Me.Undo
DoCmd.Close acForm, "SeuFormulário", acSaveNo

Tente Assim

comigo deu certo


' ****((( Função para deletar os dados inclusos na tabela caso feche o formulário sem concluir as informações )))***



If MsgBox("Deseja fechar o formulário e cancelar o registro?", vbQuestion + vbYesNo, "Aviso de Férias") = vbYes Then
Me.Undo
CurrentDb.Execute "DELETE * FROM a Tebetla Onte estão os dados WHERE [Seu compo ] =#" & Seu campo & "#"

DoCmd.Close
Else
Cancel = True 'Cancela o fechamento, mas não impede o salvamento
End If
'End If