[Resolvido]Busca-função por Dlookup no evento após atualizar da combobox

Ola a todos!
Só tenho uma tabela chamada TabClientes q tem os dados dos cliente (nome, nome fantasia, endereço, cidade, CEP , etc..)
gostaria de criar uma busca da seguinte forma:
uma caixa de combinação que lista o nome dos clientes e ao escolher um apareceria todos os dados dele.
Isso é Possível?
Desde já muito obrigado.

Ps: tá na cara q sou bem iniciante hahah

Olá amigo

Aqui vai

Private Sub Id_AfterUpdate()
On Error Resume Next


' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "Id = " & Me!Id


Me!Endereço = DLookup("Endereço", "cliente", strFiltro)
Me!Cpt = DLookup("Cpt", "cliente", strFiltro)
Me!Local = DLookup("Local", "cliente", strFiltro)
Me!Telefone = DLookup("Telefone", "cliente", strFiltro)
Me!Pagamento = DLookup("Pagamento", "cliente", strFiltro)

End Sub

Este é um exemplo. Substituir Endereço pelo seu campo e cliente pelo nome da sua tabela e por aí fora

Se precisar apite

e

Ola Vieira
Obrigado pela resposta, mas como falei sou beeeeeemmmmm novato em eccess.
Gostaria de saber aonde coloco essa programação?
Segue anexo o meu arquivo para, se vc puder, dar uma olhada.

Muito Obrigado!!!

Cadê o arquivo?

Coloquei como anexo na mensagem anterior vou tenta novamente se não funcionar mando um link com ele.

Amigo

Não tenho aqui o 7 comigo (hoje é feriado em PT) e só amanhã iria conseguir ver o seu problema, no trabalho onde disponho do 7. Contactei então o meu colega o Grande Criquio Calavera, Moderador aqui no fórum e ele se disponibilizou para implementar a rotina. Agradeça a generosidade dele.

Bom trabalho e um abraço

Ola ibuguacu. Você quer um formulário para pesquisa, é isso? O form que está no seu bd é acoplado à tabela. Para esse tipo de pesquisa, melhor que seja um form desacoplado. Depois que encontrar o nome desejado, precisarás fazer o quê?

Em 1° lugar muito obrigado Vieira pela atenção e rapidez em atender esse iniciante!!

Obrigado Criquio pelo rapido retorno!
O q pretendo acredito ser simples:
como vc viu na TabClientes estão todos os dados dos clientes, oq gostaria é de um form com uma caixa de combinação contendo o nome fantasia dos clientes, ao selecionar o nome desejado aparece todos os dados dele( enderço, cidade, contato, fones etc...)

Novamente muito obrigado aos dois pela gentileza !

Segue um exemplo que pega os valores através do index da combo. Eu criei um form desvinculado para fazer a consulta. Olhe o form "FormClientesConsulta". Abra ele no modo Design, clique na combo NomeFantasia e olhe o evento "Após atualizar". Eu comentei o código nas linhas verdes acima do código da combo.
Agora uma dica importante: evite colocar nomes com espaços nos controles. No lugar de Nome Fantasia coloque NomeFantasia. Ao invés de N° do cliente coloque NCliente ou ID ou IDCliente. Nomes com espaços e com caracteres especiais são meio cabuloso da gente trabalhar. Em muitos casos dá erro. Em outros temos que mudar a maneira de escrever o código. Tenha cuidado tambem com nomes reservados do Access. Esses nomes podem confundir tambem. Aqui no forum tem uma lista desses nomes que devemos evitar usar. Deve estar na seção Documentação.

Ola Criquio
Muito obrigado pela sua resposta!
No dia de hoje tentarei usar o arquivo, qual quer problema ou sucesso te aviso!
Obrigado
Marcelo