[Resolvido]Colocar em uma caixa texto o valor de um campo de uma consulta exibida em uma caixa de listagem

Prezados,

Creio que esse problema seja bem simples, mas tou apanhando...
Tenho 3 tabelas Produtos, Movimento e Cliente. Com base nessas tabelas criei uma consulta. Ao abrir um formulário, a consulta pede o código do produto que vou selecionar na pesquisa(clientes que compraram esse produto). No formulário tenho uma caixa de listagem onde mostro essa consulta. Também tenho uma caixa de texto que gostaria que aparecesse o nome do produto. Como faço para pegar o valor "PRODUTOS.NOME" da consulta (na caixa de listagem o nome não aparece porque seria repetitivo) e colocar na caixa texto.
Abaixo a Consulta.

" SELECT MOVIMENTO.CODCLI, CLIENTE.NOME, MOVIMENTO.DATA, MOVIMENTO.QTD, CLIENTE.TELCEL1, CLIENTE.TELCEL2, PRODUTOS.NOME
FROM PRODUTOS INNER JOIN (CLIENTE INNER JOIN MOVIMENTO ON CLIENTE.[CODCLI] = MOVIMENTO.[CODCLI]) ON PRODUTOS.[CODPRO] = MOVIMENTO.[CODPRO]
WHERE (((CLIENTE.NOME)<>"_TROCA" And (CLIENTE.NOME)<>"_ACERTO DE ESTOQUE" And (CLIENTE.NOME)<>"_BRINDE") AND ((MOVIMENTO.TIPOMOV)<>"1-ENTRADA" And (MOVIMENTO.TIPOMOV)<>"3-CONSIG-ENT" And (MOVIMENTO.TIPOMOV)<>"4-CONSIG-SAI") AND ((PRODUTOS.CODPRO) Like [Digite o Código do Produto]))
ORDER BY CLIENTE.CODCLI, MOVIMENTO.DATA;
"

Antecipadamente agradeço
Alex

olá Alexandre,

No formulário, você poderia tentar no evento Após Atualizar da caixa de listagem:

Me.TuaCaixaDeTexto = Me.TuaCaixaDeListagem.Column(6)


Nivaldo.

Prezado Nivaldo,

Obrigado pela dica, mas não deu certo.
Acompanhei a execução em tempo real e os valores retornam nulo.
Se puder pensar em outra solução

Por favor veja a outra questão que coloquei, se conseguir capturar a variável que contem o código do produto, eu poderia fazer uma pesquisa direta na tabela produtos e pegar o nome para colocar n caixa texto.
att.
Alex

Alexandre,

Na consulta que gera sua caixa de listagem, em qual coluna está o Nome do Produto?

No exemplo que lhe passei, coloquei como se estivesse na sétima coluna (conforme o sql informado)

Olha também a quantidade de colunas da sua caixa de listagem.

Nivaldo.

Prezado

Segue o código abaixo, fiz o acompanhamento e ainda retorna nulo. Coloquei também no evento depois de atualizar e também não deu. A coluna ta certa é a 7
Tive uma outra ideia, mas precisaria capturar a variável que a select faz a pergunta no comando Like. Ai eu ia por fora e fazia uma pesquisa direta da tabela produtos, capturando o nome. O que vc acha ?


Private Sub Lista0_LostFocus()
Me.Texto3 = Me.Lista0.Column(6)
Me.Texto3.Requery
End Sub

Alexandre,

Disponibiliza um pequeno exemplo do teu bd (com alguns registros). Fica mais fácil lhe ajudar e tirar suas dúvidas.

Nivaldo.

São 2 arquivos os fontes e a base de dados.
coloque-os no subdir C:\MaryKay e não abra executando, pois, o sistema tem bloqueio de senha, testa nr de série do disco rígido e ainda valida a existência de um arquivo oculto. Abra no módulodesign e execute direto o form.
A consulta é PRODUTOS CLI VENDAS
O formulário é PESQUISACLIVENDAS

Grato a todos pelas dicas.
abç
Alex

Boa tarde Alex,

Peço desculpas pela demora em responder, más vejo que já resolveu o problema.

Obrigado pelo retorno.

Nivaldo.