MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

3 participantes

    Como pedir confirmação caso um dado seja alterado

    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    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 20/10/2020, 17:32

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 166
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 295
    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 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: 21/9/2021, 04:00