ACOPLAR DUAS COLUNAS

Question

BOA  NOITE.

Meu  nome  é  ALEX  PAULO.  Tenho  um  conhecimento  muito  básico  em  ACESS.  Gostaria  de  contar  com  a  preciosa  colaboração  dos  experts  deste  FÓRUM.

Meu  problema :

**  Tenho  duas  Tabelas  -  Cadastro  Pacientes  ,  Cadastro  Médicos

**  Tenho  um  Formulário  -  Cadastro  Pacientes

** No  FORMULÁRIO  CADASTRO  PACIENTES:

Tenho  um  campo  onde  consta  uma  ComBox  Tipo  Tabela  Consulta,  que  consulta  a  Tabela  Cadastro  Médicos.  Esta  ComBox  tem  como  coluna  acoplada  a  2  (  CPF  Médico ).

No  Campo  CPF  MÉDICO,  retorna  o  valor  do  Médico  selecionado  na  ComBOX.

Preciso  que  em  um  outro  campos,  CARTÃO  SUS  DO  MÉDICO,  retorne  o  valor  do  Médico  selecionado  na  ComBox. 

Porém,  a  Coluna  Acoplada  é  a  2  onde  consta  o  CPF  Médico.  E  no  Campo  CPF  MÉDICO  está  retornando  o  valor  corretamente.

Como  inserir  no  Campo  CARTÃO  SUS  DO  MÉDICO,  o  valor  correspondente  ao  Médico  selecionado  na  ComBox ?  Sendo  que  se  eu  coloco  na  ComBox  como  coluna  acoplada  a  4  ( CARTÃO  SUS  MÉDICO ),  retorna  no  Campo  CARTÃO  SUS  DO  MEDICO   o  valor  correto,  mas  aí   o  Campo  CPF  Médico  não  apresenta  o  valor  correspondente.  Ou  seja,  é  uma  ou  outra  coluna,  mas  preciso  dos  valores  correspondentes  ao  Médico  selecionado  nos  dois  campos. 

Grato  pela  atenção.

---

ALEX PAULO ** Consultor de Informática * Vice - Presidente Comunicação MUG RS

Answer 1

Na origem de dados da ComboBox meta uma consulta à tabela Médicos com as duas colunas:

Ex.   SELECT [CARTÃO  SUS  DO  MÉDICO],[CPF  MÉDICO] FROM Medicos ORDER BY 2 

coloca a coluna dependente 1 e na largura das colunas coloca 0cm.

Assim estarão as duas colunas na combo mas a primeira estará oculta.

E não vai precisar de ligar dois campos à mesma tabela, basta inserir uma caixa de texto ligada ao mesmo campo onde irá aparecer o valor da coluna oculta.

Se for muito confuso eu posso lhe dar um exemplo.

Answer 2

Vou  procuar  ser  um  pouco  mais  claro:

 

**   Tenho  duas  Tabelas  -  TabPacientes, TabMedicos

**  Tenho  um  Formulário  -  FormCadPacientes

** No  FORMULÁRIO  CADASTRO  PACIENTES:

---Caixa  de  Combinação  CPFmedico  

     Essa  Caixa  de  Combinação  faz  uma  consulta  à  Tabela  TabMedicos,  com  os  seguintes  campos:  Nome_Medico,  CPFmedico, CARTÃO  SUS  MÉDICO

---Caixa  de  Texto  CPFmedico

---Caixa  de  Texto  CARTÃO  SUS  MÉDICO

Exemplo  de  como  deve  ficar :

**        Seleção  da  Caixa  de  Combinação:

Nome_Medico,  CPFmedico, CARTÃO  SUS  MÉDICO

Fulano                       606                             888

**        Caixa  de  Texto  CPFmedico

606

**        Caixa  de  Texto  CARTÃO  SUS  MÉDICO

888

           

Grato  pela  atenção.

---

ALEX PAULO ** Consultor de Informática *

Answer 3

Dê uma olhadela a este EXEMPLO.

É baseado em formulários modelo que uso.

Mudei os nomes e os campos da BD para se adaptar ao que você pretende.

Answer 4

PARA  NANDO  FREITAS

Agradeço  sua  ajuda  e  paciência  no  meu  problema.  Tentei  adaptar  seu  exemplo,  mas  não  consegui.

Seria  possível  eu  enviar  para  você  meu  Banco  para  você  dar  uma  olhada  nele  ?

---

ALEX PAULO ** Consultor de Informática *

Answer 5

Pode sim.

Retire toda a informação confidencial, deixando apenas o essencial para este problema e coloque num uploader tipo o sendspace, ou Box como eu uso.

Answer 6

PARA  NANDO  FREITAS

Este é o LINK para o Arquivo

Desde  já,  grato  pela  sua  atenção.

---

ALEX PAULO ** Consultor de Informática *

Answer 7

Alterei o formulário do Paciente, na parte do médico.

Alterei na tabela dos Pacientes o tipo de dados do Medico e inseri uma relação para a tabela dos medicos.

Copiei o formulário CadastroMedico, sendo usado para editar os registos existentes, veja o botão (...)  no formulário do Paciente.

Adicionei o meu formulário para escolher o médico, além da possibilidade de escolher o médico através do nome na caixa de combinação.

Está AQUI o ficheiro, o VBA está na versão 2010 (referência à versão 14.0). Alterar se estiver a usar uma versão anterior.

Answer 8

PARA  NANDO  FREITAS

Grato  pela  sua  estimada  atenção  ao  meu  problema.  Vou  adequar  a  SOLUÇÃO  ao  meu  Trabalho.

Parabéns  por  compartilhar  seus  conhecimentos.

Grande  Abraço  !!

---

ALEX PAULO ** Consultor de Informática *