[Resolvido]CAMPO AUTOMATICO DE PREÇO

BOA TARDE DE NOVO..

E o seguinte, tenho uma tabela com o Nome do produto seu preço e codigo, ai criei um formulário pra fazer as vendas, so que o preço não vem junto com o Produto. Usei um Assistente de pesquisa pra chamar os Nomes dos Produtos, mais os preços não vem, nem o códio.

se puderem mandar um exemplo ou me ajudarem fico grado

obrigado

Ola, a maneira que acho mais facil é a caixa de combinação com dua colunas e do evento apos atualizar passar o valor via vba, para seu campo.

um exemplo:


SELECT conveniados.knome, conveniados.kempresa, conveniados.kinicio, conveniados.kfim, conveniados.kvencimento
FROM conveniados
ORDER BY conveniados.knome;


esse seria a query da combobox


e no vba no apos atualizar:

Private Sub knome_AfterUpdate()

kconvenio = knome.Column(1)
xini = knome.Column(2)
xfim = knome.Column(3)
xven = knome.Column(4)

end sub

Olá, tenho uma dúvida semelhante a de lukinhaxdx.
Queria que ao escolher, na caixa de combinação, o valor correspondente a ela automaticamente aparecesse na coluna ao lado.
por ex: VBA -- 14hs. Assim evitaria erros de digitação
Assim:
Curso-----------------------QtdHoras
VBA-----------------------------14
Relaçoes humanas------------18
Secretariado-------------------23
etc-----------------------------etc

eu nao consegui entender como fazer pelo exemplo citado

Grato, ficarei aguardando.

obrigado amigo, essa sua resposta me deu outra grande ideia.
Logo apos ter postado encontrei essa outra resposta

"a maneira mais fácil de fazer isto é criar uma Caixa de Combinação que traga na propriedade Origem da Linha duas colunas: uma a descrição da empresa e a outra o valor que ela cobra.
Após isto, insere uma Caixa de Texto vazia no teu formulaário.
Na propriedade Origem do Controle desta caixa de texto, insere a seguinte linha:
=[cmbEmpresa].[column](1)
Sendo que:
cmbEmpresa-> foi o nome que dei a minha Caixa de Combinãção
column(1) -> indica a segunda coluna da combo.
Os objetos começam a contar suas colunas de dados a partir do 0.

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/273606921/m/583102295

muito obrigado