[Resolvido]Ajuda com preenchimento de caixas de Texto no Form

Boa tarde companheiros, estou de volta pra pedir ajuda de vocês... Hoje me deparei com uma dificuldade e vi varias soluções no Forum, tentei adaptar mais não consegui...

É o seguinte, tenho tabelas, cliente, fornecedor e dados recibo. no form recibo, gostaria de selecionar o nome do fornecedor e já preencher as informações nas caixas de texto. Da mesma forma ao escolher o Código do Cliente, também preencher as caixa de texto.

Segue Parte do BD para analise...

Desde já agradeço...

http://www.4shared.com/rar/G6IVGQ2oce/BuscaForm.html

"Ninguém gosta de ficar esperando, mas na maioria das vezes é preciso esperar. O tempo mostra coisas que agente não enxerga a primeira vista"

Francisco

O que pretende é programação básica em access.

Portanto, vou fazer um "aprenda fazendo".

Seria bom ler sobre caixas de combinação ou combobox em inglês, na ajuda do Access

como também na internet.

Vamos la:

- Fazer uma consulta seleção para a propriedade origem da linha da combo.
    Coloque nessa consulta, os campos que irá precisar para preencher os outros campos.
    - O primeiro campo (código do registro) e os demais campos
    - A coluna acoplada sempre será a do código
    - cada campo da consulta, é uma coluna na combo.
    - A numeração das colunas da combo, começa com zero
       Ex.: Se a consulta tiver 5 campos, as colunas irão de 0 a 4
- Largura das colunas, coloque em cm. 0cm, a coluna fica oculta
 Exiba apenas a coluna com o nome do cliente ou produto, conforme o caso.
 As demais ficam ocultas, com largura 0.
 
Na propriedade de evento Após atualizar da combo, coloque os campos que
pretende exibir.
Ex.: Digamos que queira prencher caixa de texto txtEndereco  e que o endereço está
     no terceiro campo/coluna da combo.
     Me.txtEndereco = me.cboDadosCliente.Column(2) 'terceira coluna, certo? (0,1,2)

É isso,veja que não é tão difícil

[ ]'s

Ok, já bati cabeça e não consegui fazer rodar certinho... Mais vamos lá...

Valeu obrigado...

Quando concluir posto a solução aqui. Com certeza há outras pessoas com essa dificuldade, tendo em vista que houve muitas visualizações do tópico...

Bom dia, Por favor me ajude a desvendar esse mistério.

Estou usando uma Combo para ao selecionar o código preencher os demais campos.. Fiz conforme abaixo, mesmo assim não está executando quando escolho o código na combo. No que estou errando?

Desde já agradeço...

Colunas:2
Largura: 2,893cm
Origem da combo: SELECT tblCliente.ID_Cliente FROM tblCliente;

Private Sub Cod_Cliente_AfterUpdate()
On Error Resume Next
Cod_Cliente.SetFocus
If Cod_Cliente.Value > 0 Then
Me.NomeCli.Value = DLookup("NomeCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(1) & "'")
Me.EndereçoCli.Value = DLookup("EndereçoCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(6) & "'")
Me.BairroCli.Value = DLookup("BairroCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(7) & "'")
Me.CEPCli.Value = DLookup("CEPCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column( & "'")
Me.CPFCNPJCli.Value = DLookup("CPFCNPJCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(3) & "'")
Me.RGINSCCli.Value = DLookup("RGINSCCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(4) & "'")
Me.TelCelCli.Value = DLookup("TelCelCli", "tblCliente", "Cod_Cliente='" & Me.Cod_Cliente.Column(11) & "'")

End If
End Sub

Francisco

Estou enviando teu aplicativo, onde modifiquei

o caixa de texto NomeCli para combobox. ao invés do CodCli.

Eu somente modifiquei essa combo e poderá ver o código

no evento Após Atualizar dela.

A combobox dos fornecedores, deixo para você fazer e aprender.

Baseado na minha mensagem anterior e esse exemplo, ficará fácil.

Verá que o "mistério" , não é tão misterioso assim.

Meu amigo, amador sofre... Mas devagar eu aprendo.

Quero te agradecer Nobezinho, pelas broncas e por me ajudar. Sou aprendiz reconhecedor que preciso melhorar...

Deus continue te iluminando e ajudando muitos nesse forum abençoado...

Feliz Natal e Prospero Ano novo, pra você e toda sua família...

Resolvido

É isso ai, meu amigo

Com um pouco de esforço, a gente chega onde quer chegar.

Porque ninguém nasceu sabendo, e aprender é um processo

contínuo dessa vida.

Agradeço teus votos e os retribuo para você e tua família.

Que o menino jesus renasça a cada dia no coração de vocês.

 Boas Festas