[Resolvido]Como simular click do mouse via vba..

Boa noite trenho o seguinte código numa lstbox:
Me!TXIDItem = Me.Lista.Column(0)
Me!TXNmiTEM = Me.Lista.Column(1)
Me!TXPRECO = Me.Lista.Column(3)
Me!TXQUANT.SetFocus
Tenho um campo texto que após ler um código de barras seleciona um produto nessa listbox( ele filtra pelo código de barras)
bom tudo funciona bem, porém o usuario precisa clicar com o mouse sbre a listbox para executar o código acima.
Oque gostaria de saber e seé possivel simalar esse click na listbox via vba, assim o usuario naão precisaria usar o mouse.
Poderia ser tambem dando enter..
espero ter explicado direito..
Abixo ovenmto após atualizar da minah cx de texto:
Private Sub txFiltro_AfterUpdate()
Me.Lista.Selected(0) = True
Me.Lista.SetFocus
Me!TXIDItem = Me.Lista.Column(0)
Me!TXNmiTEM = Me.Lista.Column(1)
Me!TXPRECO = Me.Lista.Column(3)
Me!TXQUANT.SetFocus
Lista_Click:
ele seleciona a listbox mas não executao o evento ao clicar

Bom dia,

Ney Santos escreveu:Tenho um campo texto que após ler um código de barras seleciona um produto nessa listbox( ele filtra pelo código de barras)

A linha na listbox é selecionada mesmo ficando marcada em preto? Ou apenas lista um único item e o clique serve para selecionar a linha?

Bom dia Marcelo!
Obrigado pela atenção.
Então se eu clicar diretamente com o mouse listbox ela fica em preto.
No caso quando filtro listbox pelo campo texto( tenho a opção de fazer isso pelo código de barras)
a list box que até então mostra todos os produtos diponiveis passa a mostrar somente o item cujo cod. barras
filtru, porem não fiaca preto.

Ah, entendi. Mais uma dúvida:
Você usa cabeçalho na listbox ou não?

sim uso

Prezado marcelo resolvi:
o codigo ficoua ssim , mas confesso nao sei bem qual alterção fiz pois foram tanats tentativas...
Private Sub txFiltro_AfterUpdate()
Me.Lista.Selected(1) = True

Me.Lista.SetFocus
Me.Lista = 1
Lista_Click  <======= daqui para baixo é o evento ao clicar da minha lsitbox  
Me!TXIDItem = Me.Lista.Column(0)
Me!TXNmiTEM = Me.Lista.Column(1)
Me!TXPRECO = Me.Lista.Column(3)
Me!TXQUANT.SetFocus
deposi de pesquisar vi que precisava mudar o valor Me.Lista.Selected(0) para 1 antes estva (0) e a partir dai ficou preto

1. Perguntei se a lista filtrava para exibir apenas um item (linha).
-Sua resposta: Sim
-Pois nesse caso, bastava seleciona essa única linha
2. Perguntei se usa cabeçalho na lista.
-Sua resposta: Sim
-Para podermos selecionar a primeira linha (única no seu caso) da listbox, precisamos saber se ela tem cabeçalho, pois cada
linha da listbox possui um índice crescente iniciado em zero e o cabeçalho é contado como uma linha. Então o cabeçalho é a linha zero. Sendo assim, a linha (única) que tem a informação que precisa é a linha 1.
Mas caso não possuísse cabeçalho, a linha que teria as informações seria a zero.

Então eu iria sugerir você selecionar a linha 1.

Mas você já fez isso, exatamente como eu iria lhe instruir. Eis o código:

Me.Lista.Selected(1) = True

Parabéns. Feliz por ter tido a iniciativa de não apenas aguardar uma solução pronta, mas de tentar por si só encontrar a solução.

Se precisar, estaremos aqui!

Sucesso!