MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 21/07/2017

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

    Mensagem  Rhostert em Sex 11 Ago 2017, 12:53

    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?
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Sex 11 Ago 2017, 13:04

    Olá Ricardo,

    Já tentou a "Busca" do fórum, veja como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Este por exemplo:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

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

    Mensagem  JPaulo em Sex 11 Ago 2017, 13:17

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Rhostert
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 21/07/2017

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

    Mensagem  Rhostert em Ter 15 Ago 2017, 19:51

    Colegas.

    Muito obrigado.

    Problema resolvido.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Qua 16 Ago 2017, 00:32

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

      Data/hora atual: Ter 21 Nov 2017, 20:51