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

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

    Compartilhe
    avatar
    Veríssimo
    Avançado
    Avançado

    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

    Mensagem  Veríssimo em 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?
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  CassioFabre em 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.
    avatar
    Veríssimo
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

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

    Resolvido
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em 7/2/2017, 19:54

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

    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    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!
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Comandos (Me.Dirty) e Me.Undo no form e subforms

    Mensagem  CassioFabre em 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.
    avatar
    Veríssimo
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Veríssimo em 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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 12/7/2017, 00:38

    Veríssimo

    Pode detalhar melhor como fez.

    Obrigado


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

      Data/hora atual: 18/10/2018, 13:06