[Resolvido]Filtro 'em tempo' real na Listbox

Tenho vários valores em uma listbox.
E tenho uma caixa de texto.

Quero que, ao digitar o um pedaço do texto na textbox, apareça apenas os valores que começam com aquelas letras.

Exemplo, tenho uma textbox com os nome:

Adriano
Aderbal
Eduardo
José

Se eu digitar "ad" na textbox, ele vai mostrar só Adriano e Aderbal.

Se eu digitar "e" na textbox, ele vai mostrar só Eduardo.

Se eu digitar "Jos" na textbox, ele vai mostrar só José.

E assim sucessivamente. Um filtro em tempo real.

Alguém pode ajudar? Obrigado.

Já usou o pesquisar do fórum, ali de cima?
Temos além de exemplo de filtragem de listbox,
também tópicos resolvidos do assunto.

Olá

Neste meu tutorial sobre filtragens, tem exatamente os exemplos que vc deseja.

http://www.usandoaccess.com.br/tutoriais/tuto35.asp?id=1#inicio

Bom estudo!

Muito obrigado, Avelino. É o autocompletava que queria mesmo e achei no maestro.

Agora dar uma estudada nos códigos.


Obrigado mesmo! Obrigado. Resolvido.

Não sei se estou certo em re-upar, mas Avelino, como sou iniciante, não compreendi muito pelo que tem no Maestro, até porque não tem apenas 1 listbox, e mostra valores de três campos.

Tenho uma listbox com o nome lista e uma textbox com o nome pesquisa.

Então, criei o seguinte código no evento da Textbox

Private Sub pesquisa_AfterUpdate()
If IsNull(pesquisa.Text) Then
lista.RowSource = "SELECT * From Clientes;"
Else

lista.RowSource = "SELECT Nome FROM Clientes Where Nome Like 'Me.pesquisa.text*'"

End If
End Sub

Em que no critério, trará o valor digitado na textbox e o asterisco pra autocompletar.

Só que não estou conseguindo, o caminho é mais ou menos esse pra fazer esse auto-completar simples?


PS: Tenho uma tabela com o nome "Clientes" e o campo "Nome".

Bem eu uso assim

Private Sub CarregarLista()
Dim strSQL As String
Dim rsL As New ADODB.Recordset
Dim cnn As ADODB.Connection
Set rsL = New ADODB.Recordset
Set cnn = CurrentProject.Connection

strSQL = "SELECT CentroCusto_Codigo,CentroCusto_CC,CentroCusto_Area FROM TblCentroCusto"
strSQL = strSQL & " ORDER BY CentroCusto_CC"

Me!lstDados.RowSource = strSQL
rsL.Open strSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText
rsL.Close
cnn.Close
End Sub



No evento ao carregar o form.
CarregarLista



No seu campo texto
Coloque no evento ao alterar

lstDados.RowSource = "SELECT CentroCusto_Codigo, CentroCusto_CC,CentroCusto_Area FROM TblCentroCusto Where CentroCusto_CC Like '*" & Me.TxtBuscar.Text & "*' Order By CentroCusto_CC;"


Sugiro não buscar pelo começo da descrição

e sim qualquer parte do campo

At+

Tem como postar o arquivo em que tu usa esse código?

Obrigado. ^~

Tentei fazer de um jeito aqui, mas não funcinou.


Vou deixar o arquivo aqui pra quem puder ajudar. É uma listbox bem simples.