MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Como pedir confirmação caso um dado seja alterado

    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 20/01/2011

    Como pedir confirmação caso um dado seja alterado Empty Como pedir confirmação caso um dado seja alterado

    Mensagem  Vanderlei em 20/10/2020, 11:29

    Olá

    Gostaria de, caso dados de um campo for alterado, solicitar confirmação, caso negativo retorna o dado anterior

    Grato
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 07/02/2018

    Como pedir confirmação caso um dado seja alterado Empty Re: Como pedir confirmação caso um dado seja alterado

    Mensagem  alozs em 20/10/2020, 13:32

    Já tentou incluir uma trava no evento "antes de atualizar" do form?
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 20/01/2011

    Como pedir confirmação caso um dado seja alterado Empty Re: Como pedir confirmação caso um dado seja alterado

    Mensagem  Vanderlei em 20/10/2020, 17:32

    Então, é justamente isso que não sei como fazer!!!
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4634
    Registrado : 20/04/2011

    Como pedir confirmação caso um dado seja alterado Empty Re: Como pedir confirmação caso um dado seja alterado

    Mensagem  Silvio em 20/10/2020, 17:42

    No evento ao sair da caixa de texto...algo parecido com isso.

    If MsgBox("Confirma a alteração de dados", vbQuestion + vbYesNo, " A V I S O ") = vbNo Then
    Me.Undo
    DoCmd.CancelEvent
    Else
    Exit Sub
    End If



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 20/01/2011

    Como pedir confirmação caso um dado seja alterado Empty Re: Como pedir confirmação caso um dado seja alterado

    Mensagem  Vanderlei em 20/10/2020, 19:17

    Olá
    Obrigado pelo empenho

    Resolve em parte, o código funciona, mas quando o campo é digitado pela primeira vez, ele também pergunta.
    A intenção seria perguntar somente quando houvesse uma alteração num campo já preenchido ateriormente
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 07/02/2018

    Como pedir confirmação caso um dado seja alterado Empty Re: Como pedir confirmação caso um dado seja alterado

    Mensagem  alozs em 20/10/2020, 19:52

    basta acrescentar um

    if isnull(me.nomedocampo) then exit sub 'se o campo for nulo ele não faz o processo abaixo

    If MsgBox("Confirma a alteração de dados", vbQuestion + vbYesNo, " A V I S O ") = vbNo Then
    Me.Undo
    DoCmd.CancelEvent
    Else
    Exit Sub
    End If

    end if

      Data/hora atual: 28/11/2020, 02:40