[Resolvido]Campos com auto preenchimento.

Gostaria de uma ajuda pois estou precisando de um exemplo onde ao consultar um valor o mesmo traga outros 3 valores para auto preencher os campos correspondentes, lembro que existe um exemplo mas não estou conseguindo achar o mesmo.

Olá Carlos, seja bem vindo ao Forum. Dê uma pesquisada por DLookup.

Olá Criqui, obrigado, mas gostaria de um exemplo você pode enviar o link do exemplo por gentileza.

Amigo, é bem simples de implementar. É só mudar os nomes de campos e da tabela para os seus. Você irá fazer uma pesquisa através do código do registro. Vamos supor que você tenha uma tabela de nome tblClientes. Nessa tabela, você tem os campos Código, Nome, Endereço, CPF e Telefone. No seu formulário, você tem os campos txtCódigo, txtNome, txtEndereço, txtCPF e txtTelefone. O seu código ficaria assim:

Me.txtNome = DLookup("Nome", "tblClientes", "Código=" & Me!txtCódigo)
Me.txtEndereço = DLookup("Endereço", "tblClientes", "Código=" & Me!txtCódigo)
Me.txtCPF = DLookup("CPF", "tblClientes", "Código=" & Me!txtCódigo)
Me.txtTelefone = DLookup("Telefone", "tblClientes", "Código=" & Me!txtCódigo)

Observe que todos os campos estão sendo populados pelo código digitado no campo txtCódigo, no formulário.

http://dl.dropbox.com/u/26441349/CarlosBarros.rar

Saudações

Ops.. não vi que estavas a responder Amigo Criquio..
Mas tai.. não é com o Delookup.. Talvez sirva..


Boa noite

Bom amigos, entendi o exemplo do amigo Harysohn e já modifiquei para minha necessidade e funcionou. Agora gostaria de dar continuidade e salvar estes dados em outra tabela é possivel fazer?

é só vincular o form à tabela que tem os campos... na hora que atualizar a combo ela ja joga os registros no campo e consequentemente a tabela.....

Baixe novamente

http://dl.dropbox.com/u/26441349/CarlosBarros.rar

Estou precisando novamente de ajuda pois estou tentando o seu exemplo e não está funcionando com mais de um campo. e fiz tudo certo como vc ensinou.

Eu posso mandar a aplicação para ser vista por você? No caso do auto preenchimento está somente pegando o primeiro campo e está tudo de acordo com o exemplo que você passou da primeira vez.

Veja como implementar:
http://maximoaccess.forumeiros.com/t1423-busca-por-cbo-e-com-funcao-dlookup

POde me enviar o BD que eu o posto aqui...

Explique melhor..

Mas geralmente se não esta preenchendo os campos seguintes pode ser incompatibilidade de Campo x Dados..
Verifique o tipo de dados dos campos e formatos etc..

Harysohn@hotmail.com

Obrigado pela dica vou verificar a noite em casa e retorno o post.

E quantos campos eu posso utilizar para está função?

Todos os campos de sua tabela

Olá amigo Carlos

Bem, os exemplos acima funcionam perfeitamente, mas se voce quiser implemetar a função pode-se utilizar desta forma:

Sub CombinaçãoNãoAcoplado_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Me.RecordsetClone.FindFirst "[Pedidos] = " & Me![CombinaçãoNãoAcoplado]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Eu deixei o campo "Pedidos" para ilustrar o motivo do código, onde "Pedidos" seria auto-numérico, e ao busca-lo todos os outros campos cadastrados e referentes ao cliente citado irão surgir nos demais campos desde que solicitados, Ok? Como? Basta citá-los na caixa de combinação, deixe o Nome do cliente aparecer e zere os demais campos na "Largura da Coluna". Espero ter contribuido para esclarecer suas dúvidas, mas se voce não conseguir o resultado desejado, poste novamente para podermos continuar tentando.

Abraços.

Boa tarde clAlves.. bem vindo ao fórum..

Creio que o que o Barros precisa é utilizar uma combo para popular novos registro em um form...

o teu exemplo procura por registros conforme o seleciona na Combo, creio que não é essa a precisão do Colega Barros

Saudações

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.