[jrjoliv2003]

Bom, a dúvida é a seguinte:

tem um bd chamado Mercado.

2 tabelas

Tabela Produtos
cod_prod
nome_prod
valor_prod

Tabela Vendas
cod_venda
produto
valor_prod
quantidade

Configurei um assintente de pesquisado campo produto(Tabela Vendas) buscando nome_prod(Tabela Produtos)

beleza

Montei um formulário para a tabela vendas. Gostaria de ao selecionar um produto o valor aparecesse automaticamente vindo da tabela Produtos.

Valeu a força!!!

JR.

[Spiritwalker]

Prezado jrjoliv2003:

Não sei se houve uma falha de digitação, mas acredito que na sua tabela "Vendas" o campo "produto" na verdade seja "cod_produto", não é?
Você não especificou de que forma seleciona o produto em seu formulário, mas presumo que seja por intermédio de uma caixa de combinação ou de listagem.
Pois bem, se o componente acima tem como "Origem da linha" a consulta que você menciona, inclua na mesma consulta (se já não estiver) o campo "valor_prod".
Ainda que a caixa de combinação (ou de listagem) esteja exibindo somente a coluna "nome_prod", saiba que, na verdade, ela selecionou todo o registro, isto é, todas as colunas e não somente a que está visível, e portanto basta "capturar" a informação desejada (no caso, o preço do produto) utilizando a propriedade Column do componente. Se a coluna em que aparece o preço do produto na consulta (origem dos dados do componente) é, por exemplo, a 4ª, insira o código abaixo no evento AfterUpdate da combo:

txtCaixaDeTextoPreco = SuaCaixaDecombinacao.Column(3)

Se tratar-se uma caixa de listagem, utilize o código abaixo:

Dim intLinhas As Integer
intLinha = SuaCaixaDeListagem.ListIndex
txtCaixaDeTextoPreco = SuaCaixaDeListagem.Column(3, intLinha)

Espero que isso o ajude.
Abraços.

[jrjoliv2003]

beleza,

consegui pelo código que você forneceu!!!

vlw!

JR.

[jiomeke]

Prezado Spiritwalker,

Muito legal sua dica! Usei para um projeto q estou fazendo, porém houve um problema.
Montei a consulta para a caixa de combinação com 4 variáveis (colunas), quando peço para mostrar a 2ª variável (Column(1)) na caixa de texto, beleza. Mas a partir da 3ª variável (Column(2)) ela não traz a informação na outra caixa de texto. O que será q pode estar errado? Será q existe outra maneira de mostrar as outras 2 variáveis através da seleçao na caixa de combinaçao?
Desde já agradeço a atenção.

[jiomeke]

Ah, acabei de descobrir!!!
No item "Formato" deve-se preencher o Número de Colunas que aparecerá na caixa de combinação. Somente assim será possível "capturar" as informaçoes das outras variáveis.
Valeu!