Ir filtrando conforme se digita em cx de listagem

Boa tarde Amigos

No exemplo que anexo segue uma BD que na mesma pasta tem outra pasta com o nome "PDF", aonde se guardam os documentos em .pdf.

Na BD ao abrir o único formulário tem uma caixa de listagem que lista os PDF que estão na pasta da BD.

Queria na caixa de "Pesquisar" em cima que filtrasse conforme se vai digitando.

Obrigado

Olá amigo,
Verifiquei o seu BD que ele está fazendo oque você deseja.Se você digita letra na busca que tenha em vários títulos dos pdfs ,esses que contém a letra vão se manter na lista.Faça um teste e digite uma letra que não tem em nenhum pdf (ex letra X),pra você ver como filtra.
Abraço.

Samuel

Quando digitar a letra "A" devia esconder as outras .

Assis, ele não esconde porque ele está filtrando o título inteiro e não a primeira palavra do título.Como a letra a está em todos os títulos ele não vai esconder.Acredito que teria que ajeitar o código para que seja filtrado apenas a primeira palavra dos títulos.Mas aí é algo mais avançado que não poderei ajudar.Mas logo alguém com mais entendimento que eu irá te ajudar.Aqui tem muitas pessoas expert no Access.
Abraço.

Assis, Bom dia!

Supondo que a Lista tenha o nome de: Lista1
e o campo de procura para atualizar a lista seja: Comb_Procura, segue:

No form

Option Compare Database
Dim VarTecla


Private Sub Comb_Procura_Change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.Recalc
Me.Comb_Procura.SelStart = 255
End If
End Sub

Private Sub Form_Load()
KeyPreview = True
Me.Lista1 = " "
End Sub

Ve aí se funfa! Tenho aqui e fica na perfeição.
Conforme vai digitando na TextBox, vai atualizando a Lista, ok?

Abraços

Alessandro

Funciona como o exemplo que postei.

A diferença aqui é a origem dos dados que aparecem na caixa de listagem.

O que aparece na caixa de listagem são os documentos .pdf que estão na pasta da Base de Dados

Obrigado

Bom dia a todos...

Assis, de onde vem a tua lista0 ?  Qual a origem de dados da mesma !

Tente adaptar esses dois códigos a tua necessidade

Private Sub Pesquisa_Change()
Dim C As String, x As String
x = Me.Pesquisa.Text--> sua txtbox aqui.
C = " where CPFCNPJ like '*" & x & "*' or nome like '*" & x & "*'" --> seus campos que quer pesquisar aqui
Me.LstCliente.RowSource = " SELECT idclientevar, CPFCNPJ, nome FROM TblClienteVar " & C --> mudar de tblClienteVar para a tua tabela
End Sub

Private Sub Pesquisa_GotFocus()
On Error Resume Next
Pesquisa.SelStart = 0
Pesquisa.SelLength = Len(Pesquisa.Text)
End Sub

Olá Silvio

A origem dos dados são os documentos .pdf que estão na pasta da Base de Dados.

Abraço