[Resolvido]Erro ao sair do Form sem salvar as alterações.

Colegas, boa tarde.

Em meu sistema, tenho telas para inclusão e alteração de Usuários e convênios (telas separadas), todas solicitam confirmação do usuário para salvar ou não os registros.

Quando a opção do usuário é por “salvar”, o sistema funciona corretamente, contudo quando a opção é por “sair sem salvar”, o sistema gera erro do tipo: “Erro em tempo de execução 2046. O comando ou ação ‘desfazer’ não está disponível agora.

Quando clico na opção Depurar, aparece o seguinte:

Private Sub Form_Close()
If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
End Sub

Conseguem auxiliar com isso?

Olá Ricardo,

Já tentou a "Busca" do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Este por exemplo:
https://www.maximoaccess.com/t14436-resolvidodocmd-runcommand-accmdsaverecord-nao-funciona-em-banco-de-dados-accde

Abraço

Código:

Private Sub Form_Close()
    If MsgBox("Deseja salvar este registro?", vbYesNo + vbInformation, "Status") = vbNo Then
        'O Dirty verifica se existiu alguma alteração nos dados
        'Se existiu e respondeu Não Salvar, então faz o Undo
        'Caso não exista alterações, não faz nada e deixa de apresentar o erro 2046
        If Me.Dirty Then
            DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
            Me.Dirty = False
        End If
    Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    End If
End Sub

Colegas.

Muito obrigado.

Problema resolvido.

Obrigado pelo retorno.
O forum agradece.
Abraço a todos