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


    Fixar paciente após escolha...

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    Fixar paciente após escolha... Empty Fixar paciente após escolha...

    Mensagem  m_sousa 25/2/2021, 16:58

    Olá

    Como posso obter o seguinte :

    Ter uma combo para escolher / selecionar o paciente, e posteriormente todos os forms estarem/ registos nos form estarem associados a este paciente até sair desse paciente ou até escolher outro !!!

    Deixo parte da bd para melhor entendimento.

    frmMenuSaude - Escolhe se na combo o paciente - Botão óbitos.

    Obrigado
    Anexos
    Fixar paciente após escolha... AttachmentUtentes.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 10 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1688
    Registrado : 23/01/2018

    Fixar paciente após escolha... Empty Re: Fixar paciente após escolha...

    Mensagem  crysostomo 25/2/2021, 17:06

    Boa tarde, faça a relação de bd , ao selecionar o paciente todos os registro vem junto


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    Fixar paciente após escolha... Empty Re: Fixar paciente após escolha...

    Mensagem  m_sousa 25/2/2021, 19:56

    Olá

    Qual relacionamento ?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1688
    Registrado : 23/01/2018

    Fixar paciente após escolha... Empty Re: Fixar paciente após escolha...

    Mensagem  crysostomo 25/2/2021, 22:28

    Boa noite colega. 
     Vi seu bd agora aqui. aonde voce quer que esteva todos os registro relacionado ao paciente?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 159
    Registrado : 06/11/2020

    Fixar paciente após escolha... Empty Re: Fixar paciente após escolha...

    Mensagem  m_sousa 26/2/2021, 15:15

    Olá

    Quando você escolhe no frmMenuSaude o paciente e abre o form ele fixe o paciente.

    Um bem hajam. Saúde . . .
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1688
    Registrado : 23/01/2018

    Fixar paciente após escolha... Empty Re: Fixar paciente após escolha...

    Mensagem  crysostomo 26/2/2021, 18:55

    Boa tarde . Primeiro  os campos tem que estar NãoAcoplados
    Após atualizar

    Código:
    Private Sub cboSelecionaUtentes_AfterUpdate()
      DoCmd.OpenForm "frmMenuSaude", , acHide ' esse fica oculto para passar os dados para o outro formulário
      DoCmd.OpenForm "frmObitoUtentes" ' Esse abre
    End Sub

    Ao abrir 

    Código:
    Private Sub Form_Open(Cancel As Integer)
      Forms!frmObitoUtentes!IDUtentes = Forms!frmMenuSaude!cboSelecionaUtentes.Column(0)  ' essa recebe os dados da coluna0 da  consulta da cboSelecionaUtentes
      Forms!frmObitoUtentes!Nome = Forms!frmMenuSaude!cboSelecionaUtentes.Column(1) ' esse recebe da coluno 1 da cboSelecionaUtentes
      Forms!frmObitoUtentes!DataObito = Date ' esse recebe a data do cmpudador
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    m_sousa gosta desta mensagem


    Conteúdo patrocinado

    Fixar paciente após escolha... Empty Re: Fixar paciente após escolha...

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 12:10