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]Comandos (Me.Dirty) e Me.Undo no form e subforms

    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  Veríssimo 1/2/2017, 18:00

    Pessoal, pesquisei aqui e em outras fontes e nada.
    No meu frmDados, existem dois outros forms: frmPeculiaridades e frmEventos, este relacionados com o primeiro.
    Em cada um deles, inseri no evento BeforeUpdate
    If (Me.Dirty) .....
    .
    .
    .
    Me.Undo

    para desfazer as alterações realizadas nos campos, casa haja alguma.
    Ocorre que fiz isso em cada formulário, mas agora estou tentando fazer com que os botões Alterar, Cancelar e Salvar no rodapé do frmDados realize estas funções para todos os forms, excluindo a necessidade criar existir estes três botões para cada form.

    Alguma idéia?
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  CassioFabre 1/2/2017, 18:12

    Boa tarde.

    Voce pode colocar no click do botão, ou no evento que melhor lhe convir, o mesmo código, porém diferenciando por formulários. Ficaria algo como:
    Código:
    If (Me.Dirty) 'form principal
    ...
    Me.Undo

    if (Me.SubForm1.Dirty) 'subformulario 1
    ...
    Me.SubForm1.Undo

    if (Me.SubForm2.Dirty) 'subformulario 2

    Me.SubForm2.Undo

    Abraço.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty Re: [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  Veríssimo 7/2/2017, 19:46

    Resolvido
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty Re: [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  FabioPaes 7/2/2017, 19:54

    Por favor, se a duvida foi solucionada, por favor marque o tópico como resolvido:

    Veja como Fazer


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  CassioFabre 8/2/2017, 10:01

    Bom dia,

    Também não se esqueça de deixar claro o que foi que resolveu a sua dúvida, pois futuramente outras pessoas poderão ver este tópico atrás da mesma resposta e, caso não tenha sido (neste caso) a minha dica que resolveu, ficarão à mercê.

    Abraço.
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty Re: [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  Veríssimo 13/2/2017, 13:33

    Utilizei o procedimento em cada formulário de forma que somente as alterações realizadas neles sejam desfeitas, sem que se propague pelos demais.
    If (Me.Dirty) 'form principal
    ...
    Me.Undo

    if (Me.SubForm1.Dirty) 'subformulario 1
    ...
    Me.SubForm1.Undo

    if (Me.SubForm2.Dirty) 'subformulario 2

    Me.SubForm2.Undo
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty Re: [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  Assis 12/7/2017, 00:38

    Veríssimo

    Pode detalhar melhor como fez.

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms Empty Re: [Resolvido]Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 07:19