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


    Cancelar registro

    avatar
    motavg
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 28/01/2019

    Cancelar registro Empty Cancelar registro

    Mensagem  motavg em 30/8/2019, 03:43

    Boa noite,

    Eu pesquisei pelo tópicos e não achei nada que me atendesse.

    Exemplo:

    Ao clicar no botão "novo", ele abre o formulário e eu preencho normal, mas vamos supor que eu não queria mais, ou esteja errado, mas sem eu ter salvado o que fiz.

    Então, a partir daí, eu queria que ao apertar o botão "cancelar", ele limpasse o que foi digitado e fosse fechado esse registro sem salvar e permanece no último feito.



    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 23/01/2018

    Cancelar registro Empty Re: Cancelar registro

    Mensagem  crysostomo em 30/8/2019, 12:57

    Me.undo


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    cafpr
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 969
    Registrado : 08/02/2011

    Cancelar registro Empty Re: Cancelar registro

    Mensagem  cafpr em 3/9/2019, 22:30

    No evento ao clicar no btn_fechar:

    Private Sub "btn_fechar_Click()
    Dim x As Integer
    If Me.Dirty Then
    x = MsgBox("Houve adição ou alterações de registro, deseja salvar ?", vbYesNo + vbQuestion, "Atenção")
    If x = vbNo Then
    Me.Undo
    End If
    End If
    DoCmd.Close
    End Sub

    Conteúdo patrocinado

    Cancelar registro Empty Re: Cancelar registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2019, 00:26