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

2 participantes

    [Resolvido]Dificuldade com Função Dirty

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/08/2010

    [Resolvido]Dificuldade com Função Dirty Empty [Resolvido]Dificuldade com Função Dirty

    Mensagem  Mylton 24/2/2019, 17:55

    Boa tarde
    Nessa parte tive a necessidade de introduzir mais um form na rotina.
    Abro o form exame fisico.
    Escolho um processo na lista.
    Abro form tornozelo d, ou esquerdo ou antebraco.
    O id Processo acompanha nesses forms.
    Quando escolho outro form e ID Processo não acompanha.

    Utilizei Dirty
    Form Tornozelo D e E
    Private Sub Form_Dirty(Cancel As Integer)
    ' ao preencher qualquer campo, o Id do Exame fisico é preenchido.
       Me.IdProcesso = Forms!Frm_ExameFisico!IdProcesso
       Me.IdExameFisico = Forms!Frm_ExameFisico!IdExameFisico
    End Sub


    Utilizei Dirty
    Form demais forms Tornozelo D e E
    Private Sub Form_Dirty(Cancel As Integer)
    'ao preencher qualquer campo, busca-se o id
       Me.IdProcesso = Forms!Frm_ExameFisico!IdProcesso
       Me.IdTornozeloE = Forms!Frm_TornozeloE!IdTornozeloE
       Me.IdExameFisico = Forms!Frm_TornozeloE!IdExameFisico
    End Sub


    Precisava que o IDProcesso acompanhasse em todos os forms.

    Alguém pode dar um help?
    Obrigado.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/08/2010

    [Resolvido]Dificuldade com Função Dirty Empty Re: [Resolvido]Dificuldade com Função Dirty

    Mensagem  Mylton 25/2/2019, 00:20

    Resolvido
    Modifiquei a codificação nos comandos para:
    'relacionando os registros
    Forms!Frm_AntropometriaTornozeloD!IdTornozeloD.Value = Me!IdTornozeloD.Value
    Forms!Frm_AntropometriaTornozeloD!IdExameFisico.Value = Me!IdExameFisico.Value
    Forms!Frm_AntropometriaTornozeloD!IdProcesso = Me.IdProcesso


    Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7285
    Registrado : 15/03/2013

    [Resolvido]Dificuldade com Função Dirty Empty Re: [Resolvido]Dificuldade com Função Dirty

    Mensagem  ahteixeira 25/2/2019, 08:13

    Olá Mylton,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 1/8/2021, 10:39