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

4 participantes

    [Resolvido]Como pedir confirmação caso um dado seja alterado

    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Vanderlei 20.10.20 7: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 : 298
    Registrado : 06/02/2018

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

    Mensagem  alozs 20.10.20 9:32

    Já tentou incluir uma trava no evento "antes de atualizar" do form?
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Vanderlei 20.10.20 13: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 : 4801
    Registrado : 20/04/2011

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

    Mensagem  Silvio 20.10.20 13: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
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Vanderlei 20.10.20 15: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 : 298
    Registrado : 06/02/2018

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

    Mensagem  alozs 20.10.20 15: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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3329
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. 02.11.21 10:11

    Vanderlei, conseguiu resolver?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Vanderlei 02.11.21 14:47

    resolvido

      Data/hora atual: 29.11.21 20:30