[Resolvido]Preenchimento automatico de campos

Ola galera, preciso de uma ajuda no access. Como aplicar um codigo vba que faça o preenchimento automatico dos campos no meu formulario apenas digitando o código do produto. Todos os exemplos que eu vejo, as pessoas usam caixa de combinação. Não serve assim. eu quero simplesmente (DIGITAR E NÃO BUSCAR EM CAIXA DE COMBINAÇÃO) o código e o resto dos campos serem preenchidos automaticamente.
A pessoa que me ajudar, por favor, faça um exemplo simples criando um bd no access com tbl de cadastro de produtos e um formulario que faça o preenchimento automatico. O resto eu sei fazer. Muito obrigado desde já.

Bom dia!
Seja bem vindo ao fórum.
Veja se é isso que precisa.
Saudações. 

Poxa amigão valeu, Meu nome tambem é claudio   . Mas so tem um problema. No campo do formulário "código do produto", faça uma busca pelo código do produto; ele acha normalmente, aí logo em seguida dê um delete no mesmo campo de "código do produto" e depois dê um tab pra ele pular para o próximo campo, ele dá erro. acho que é porque ele não trabalha com campos nulos e ainda apaga o que ta preenchido na tabela. como resolver isso?. tem que aplicar a função NZ ?, não sei usá-la. Me dá uma luz. Fico no Aguardo. Obrigado

Olá,

Post como está o seu código e a estrutura de sua tbl para podermos ajudá-lo.

Ola amigo Mathus, estou usando o o arquivo postado pelo claudio logo acima; Ainda não criei o meu bd até conseguir a resposta para esse tópico. É só consertar esse defeito e postar o arquivo que eu vejo a forma que vc usar. Desde já obrigado.

Private Sub pesquisa_AfterUpdate()
nome = DLookup("[nome]", "[produtos]", "Código=" & pesquisa)
marca = DLookup("[marca]", "[produtos]", "Código=" & pesquisa)
valor = DLookup("[valor]", "[produtos]", "Código=" & pesquisa)
End Sub

Ola pessoal, me ajudem com esses códigos. O banco de dados postado logo acima, tem esses códigos de busca, está funcionando mas quando eu dou um delete no campo "pesquisar" do formulario ele fica com valor nulo e dou um tab para passar para proximo campo ele dá o erro e depurar e ainda apaga o campo na tabela. com resolvo isso. como se usa a função nz ou tem outro modo de resolver? obrigado desde já.

Boa tarde.

Primeiramente as palavras "Nome" e "Valor" não podem ser usadas em programação VBA, pois são palavras reservadas, modifique estes nomes.
Em seguida cole o código abaixo no campo de pesquisa e veja se é isso.

Código:



If IsNull(Me.CódigoProduto) Then
    MsgBox "Digite um Código para busca", vbInformation, "Informando"
Else
   Me.DescriçãoProduto = DLookup("Descrição", "Produtos", "IdProduto=" & Me.CódigoProduto)
   Me.Unidade = DLookup("Unidade", "Produtos", "IdProduto=" & Me.CódigoProduto)
   Me.Preço = DLookup("Preço", "Produtos", "IdProduto=" & Me.CódigoProduto)
End If



Se preferir, pode retirar a mensagem com código abaixo

Código:



If IsNull(Me.CódigoProduto) Then

Else
   Me.DescriçãoProduto = DLookup("Descrição", "Produtos", "IdProduto=" & Me.CódigoProduto)
   Me.Unidade = DLookup("Unidade", "Produtos", "IdProduto=" & Me.CódigoProduto)
   Me.Preço = DLookup("Preço", "Produtos", "IdProduto=" & Me.CódigoProduto)
End If



Saudações.

obrigado Claudio, resolveu meu problema. Como faço para colocar o Tópico com resolvido?

Valeu. Consegui.

Disponha.
O fórum agradece o retorno.
Saudações  

Olá Claudio Machado, não sei se pósso dar continuidade neste tópico, já que foi resolvido. Mas eu tenho um problema parecido.
Criei um bd com duas tabelas, "Clientes" e "Pedidos" quando eu abro o formulario Clientes escolho um clinente qualquer e clico no botão "Orden de Serviços", perfeito, ele me abre já com os dados do cliente escolhido, mas quando quero fazer este processo pelo botão "Pedidos" eu não consigo fazer a mesma coisa, eu queria puxar somente os campos do cliente  e os outros como: Qtd, referencia, descrição etc eu preencheria e gravaria os dados na tabela Pedidos.Dentro do formulario pedidos eu tenho um botão que abre "pedidos Impressão" que será impresso com os dados do formulario "Pedidos"
Outra coisa que não consigo fazer é formatar os campos valores e calcular o valor unit com o desconto para preencher automaticamente o Total e total geral.
Estou mandando o BD pra você dar uma analisada e me dizer o que fazer. Se puder me ajudar agradeceria muito.
Desde já obrigado.

Obs: desconcidere o visual tosco, eu não terminei de fazer o layout rsrsrs

Amigo, eu até posso continuar te ajudando dentro do possível.
Mas infelizmente este tópico foi resolvido, portanto terá que abrir um novo tópico para esta dúvida, ou solicite aos Moderadores para moverem esta dúvida para um novo tópico.

Abraço.