Boas caros amigos.
Fartei-me de pesquisar aqui no forum e não consegui encontrar o que pretendo.
é o seguinte:


Tenho um textbox : TxtBusca e uma listbox de produtos: LstProd

Objectivo: A cada letra que escrever na textbox, preencher minha listbox baseada naquilo que escrevi. uso o codigo seguinte:
'TPNom é o nome do produto
Private Sub TxtBusca_Change()
Dim Frase
Frase = Me.TxtBusca
If Not IsNull(Frase) Or Frase <> "" Then
Me.LstProd.RowSource = "SELECT DISTINCTROW TabProdutos.TPNom, TabProdutos.TPCod, TabProdutos.TPUm, " _
& "TabProdutos.TPTP, TabProdutos.TPPvp, TabProdutos.TipoProd, TabProdutos.SubTipoProd FROM TabProdutos " _
& "where (((TabProdutos.TPNom) like '*" & Frase & "*')) ORDER BY TabProdutos.tpcod "
Me.LstProd.Requery
End If
End Sub
---------------------------

Isto funciona quando avanço para outro campo coloco este codigo num evento qualquer de um botao porém, nao funciona enquanto estou a escrever.
A String FRASE nunca se encontra actualizada até eu avancar para outro campo e retornar ao campo original e continuar a escrever.


Basicamente não sei actualizar a string FRASE a cada letra que escrevo para que depois popule a listbox com os resultados desejados.
Agradeço imenso a ajuda que puderem dar.
Obrigado.

This message has been edited. Last edited by: Symbolik,

Coloque na propriedade rowsource da list:
SELECT DISTINCTROW TabProdutos.TPNom, TabProdutos.TPCod, TabProdutos.TPUm, TabProdutos.TPTP, TabProdutos.TPPvp, TabProdutos.TipoProd, TabProdutos.SubTipoProd FROM TabProdutos where (((TabProdutos.TPNom) like Forms!<seuform>!TxtBusca.Text & "*")) ORDER BY TabProdutos.tpcod

no código:

Private Sub TxtBusca_Change() 
    Me.LstProd.Requery
End Sub

Valeu Rogerio !

Muito Obrigado ! funcionou perfeitamente !

veja aqui um exemplo.

http://www.esnips.com/doc/2af31384-cee2-4daf-9e17-71ee5...0/FILTRAR-AO-DIGITAR

este e outros exemplos na site abaixo.

Abraços