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 Qua 01 Fev 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  CassioFabre em Qua 01 Fev 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 Ter 07 Fev 2017, 19:46

    Resolvido
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Ter 07 Fev 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  CassioFabre em Qua 08 Fev 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 Seg 13 Fev 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 : 3014
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qua 12 Jul 2017, 00:38

    Veríssimo

    Pode detalhar melhor como fez.

    Obrigado


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

      Data/hora atual: Ter 21 Nov 2017, 19:09