Preencher campos automaticamente

Bom dia, mestres!

Peço mais uma vez a ajuda de vocês para o seguinte:
Eu queria que, em um formulário, quando eu digitasse o código do produto e desse enter, ele preenchesse automaticamente os outros campos como: preço, preço com desconto, etc...

Alguém poderia me ajudar?

Desde já agradeço!

Olá Jorge,

A maneira mais prática de se fazer isso é através de uma caixa de combinação.
Usando o assistente selecione a terceira opção da primeira tela e as outras etapas é intuitiva.

Deve resolver.

Obs: a dica acima funciona se o teu formulário for baseado/acoplado a uma tabela ou consulta.


Nivaldo.

Então, Nivaldo.

O problema é que minha tabela é muito grande. Por isso é que quero o método de digitar o código do produto e ele preencha automaticamente o campo descrição, preço e preço com desconto, para que eu possa alterar os preços mais rapidamente.

Estou vendo uma possibilidade de utilizar Dlookup, via VB mas não estou conseguindo fazer funcionar direito.

Jorge,

A caixa de combinação é bastante usada na sua necessidade. Independente da sua tabela ser muito grande.
Se preferir pode usar da seguinte forma:

No evento Após Atualizar da combo:

Me.Descrição = Me.NomeDaCombo.Collumn(1) 'se o campo Descrição for a segunda coluna
Me.Preço = Me.NomeDaCombo.Collumn(2) 'se o campo Preço for a terceira coluna
Me.PreçoComDesconto = Me.NomeDaCombo.Collumn(3) 'se o campo PreçoComDesconto for a quarta coluna

Com o Dlookup:

Me.Descrição = DLookup("[Descrição]", "[TabelaProduto]", "[CodigoProduto] = " & Forms![TeuFormulário]![TeuCampoCodigo]
Me.Preço = DLookup("[Preço]", "[TabelaProduto]", "[CodigoProduto] = " & Forms![TeuFormulário]![TeuCampoCodigo]
Me.PreçoComDesconto = DLookup("[PreçoComDesconto]", "[TabelaProduto]", "[CodigoProduto] = " & Forms![TeuFormulário]![TeuCampoCodigo]


Nivaldo.