[Resolvido]Dificuldade com filtrar ao digitar.

Boa noite pessoal, estou tentando criar um filtro numa caixa de texto que me permita filtrar num formulário a medida que eu for digitando. Estou usando um código que até funciona , mas o problema é que eu não consigo terminar de digitar o que quero na caixa de texto. Se quero digitar "João" eu começo pela letra "j" mas se tento digitar o "o" a letra "j" some e fica somente a letra "O".

O código que estou executando é esse abaixo.

Dim strFiltro As String
strFiltro = "cliente LIKE '*" & Me.txtcliente1.Text & "*' "
Filter = strFiltro
FilterOn = True

Em qual evento colocou? Ao alterar?
caso não, coloque aqui seu Bd

Boa tarde senhores,

Código:

https://www.youtube.com/watch?v=nq--bfUWCz0&t=48s

Veja essa minha videoaula que ensino a fazer essa filtragem (apesar de não recomendar para bases muito grandes, principalmente em rede). Clique aqui e assista.

Bons estudos.

Oi crysostomo, tudo bem? Coloquei no evento ao alterar. Vou colocar o banco aqui. Marcelo, obrigado pela dica.

Boa tarde. Só começarei mexer a noite.
Enquanto isso dá uma olhada  no vídeo do Marcelo.

Fiz dois modelo pra vc um com listbox e outro com subformulario a medida que vai digitando ele vai filtrando e tb aceita espaço. Usando Consulta com campo concatenado para poder pesquisar lembrando que se precisar pesquisar em mais campo basta adicionar na concatenação da consulta.

Oi marcelo, primeiro obrigado por ajudar. Estou usando o código abaixo ele até executa a pesquisa, mas não permite dar espaço. Se eu conseguir inserir o espaço então meu problema estará resolvido.


Dim strFiltro As String
On Error Resume Next
Me.KeyPreview = True


strFiltro = "cliente LIKE '*" & Me.txtcliente1.Text & "*' "

Filter = strFiltro


Me.txtcliente1.SetFocus
CreateObject("Wscript.shell").SendKeys "{F2}"
FilterOn = True

Oi marcelo, tentei copiar teu exemplo para poder fixar, mas ao concluir não consegui inserir o espaço na caixa de texto. Poderia me ajudar a descobrir onde está o erro?

Boa noite Srs. foi resolvido?

Oi crysostomo ,boa noite. Não foi resolvido ainda, tentei reproduzir um exemplo do Marcelo, mas não estou conseguindo colocar espaço na caixa de texto.Coloquei o banco acima.

Boa noite! ver se é isso

Boa noite, filtro perfeto.
Os filtros do nossos colega com códigos enxutos, essenciais.
Bota pra rodar no seus projetos.

Mestre anslu, boa noite. Obrigado pela solução. Onde estava meu erro? Como você efetuou a correção?

Boa noite! Correção 1

Boa noite! Correção 2

Grande abraço! Fica com Deus!

Perfeito mano, obrigado.

Sucesso