Trazer Dados De Duas Tabelas Para Um Formulário Selecionando Apenas Um

[Odair]

Trazer dados de duas tabelas para um formulário selecionando apenas um campo “nome” .

Seguinte:

tenho a tabela clientes: cód_cli(auto_numeração), nome, cnpj, endereço, inscrição estadual, fone.

tenho a tabela nota fiscal: cod_nf(auto_numeração), entrada/saída (sim/não), tipo operação (texto)

Fiz um formulário só pra cadastrar os clientes.

Fiz outro formulário para cadastrar a nota fiscal.

no formulário NOTA FISCAL:

* consegui fazer aparecer no campo "NOME" todas os nomes cadastrados da tabela "CLIENTES".

* agora gostaria que: Quando eu seleciono o NOME ela traga junto para este formulário e coloque nos campos, os outros dados deste nome, tipo: cnpj, endereço, inscrição estadual, fone. :unsure:

Gostaria se possível de um exemplo prático (algum exemplo implementado bem simples) de como posso fazer isso.

qualquer dica será bem vinda...

obrigado.

Editado Maio 31, 2007 por Odair

[MrMALJ]

Utilize a busca do forum e procure por dlookup, aqui no forum tem vários tópicos e exemplos com esse assunto!

[Humm]

é facil..

crie uma rotina "após atualizar" nesta combo que você fez com o seguinte(vou dar o exemplo para o campo nome e endereço, o resto voce faz conforme sua necessidade):

Sintaxe do DlookUp:

DlookUp("[Campo]", "Tabela", "Critério")

Campo = Campo que contém o valor que voce deseja capturar.
Tabela = Tabela que contém o Campo.
Critério = Critério a ser usado para resgatar o campo.

Private Sub Combo_Cliente_BeforeUpdate(Cancel As Integer)
      'Definindo Valores dos Campos
      Me.Nome = Dlookup("[nome]", "Tab_Clientes", "[cód_cli]=" & Me.Combo_Cliente)
      Me.Endereço = Dlookup("[endereço]", "Tab_Clientes", "[cód_cli]=" & Me.ComboCliente)

      'Foco Vai Para
      Me!Campo_Que_Voce_Quer_Que_Fique_com_foco_no_final.SetFocus
End Sub

Editado Junho 1, 2007 por Humm