[Resolvido]Filtro Usando vba

Boa tarde

Mestres

Estou precisando fazer um filtro em um programinha em vba access 2010 e gostaria de fazer conforme exemplo em anexo:

Obs: A caixa de seleção informa por a coluna na qual quero filtrar, dai digito na caixa de pesquisa conforme a coluna.


Conto com a ajuda de alguma fera em vba que possa me ajudar.

Rodrigues, para isso você pode alterar a origem da listbox, veja esse exemplo:

Private Sub SuaCombo_AfterUpdate()
Dim str as String
Select Case Me!SuaCombo
Case "idusuario"
str = SELECT idiusuario, Nome, Login, Senha FROM NomeDasuaTabela WHERE idiusuario=" & Me!SuaCaixaDeTexto
Case "Nome"
str = SELECT idiusuario, Nome, Login, Senha FROM NomeDasuaTabela WHERE Nome='" & Me!SuaCaixaDeTexto & "'"
Case "Login"
str = SELECT idiusuario, Nome, Login, Senha FROM NomeDasuaTabela WHERE Login='" & Me!SuaCaixaDeTexto & "'"
Case "Senha"
str = SELECT idiusuario, Nome, Login, Senha FROM NomeDasuaTabela WHERE Senha='" & Me!SuaCaixaDeTexto & "'"
End Select
Me!SuaCombo.RowSource = str
End Sub

Não sei se sabe mas de qualquer forma deixo já avisado; Na sua combo isso tem que ser colado no evento Após Atualizar; Você também tem que mudar os nomes da Combo, Caixa de Texto e Tabela na string.

E no caixa de texto no evento Após Atualizar você coloca:
Me!SuaCaixaDeListagem.Requery

Bom dia

Leandro e muito obrigado pela ajuda. Porem fiz os testes aqui e o select não está carregando a listbox, gostaria de ver esse filtro também em um subformulário se possivel. Segue modelo teste anexo. Lembrando que está no access 2010, não tenho 2003, se possível pode me dar um exemplo dentro desse modelo que te passei?

Aguardo e agradeço,

Manda o que você fez em access 2000 por favor.

Me desculpe mas infelizmente não tenho access 2000. Não existe outra forma?

É só converter, vá em: Arquivo > Salvar Publicar

Obrigado pela dica, não sabia, confesso que aprendi. Segue em anexo o modelo.

Veja:

Leandro muito obrigado pela ajuda, funcionou perfeitamente, porem tem um detalhe, gostaria que no normal a lista ficasse carregada a medida que eu fosse digitando na caixa de pesquisa ele fosse filtrando, porque utilizo assim, só quero acrescentar o filtro de coluna e no exemplo que você me passou os dados só aparecem depois que eu digito o nome ou código completo. Pode me ajudar nisso?

Obs: Veja um exemplo de como eu utilizo.

https://dl.dropboxusercontent.com/u/90217826/Teste%202000.rar
Veja se te serve amigo.

Abçs.

Obrigado Kaynan pelo exemplo, ficou muito bom, muito bom mesmo, porem fica limitado a dois filtros e no exemplo que postei posso inserir quantos filtros quiser dentro da combo. Gostaria muito de fazer daquela forma mesmo, mas não estou conseguindo.

https://dl.dropboxusercontent.com/u/90217826/Teste%202000.rar

Veja agora amigo,pesquisa qualquer campo.

Cumprimentos.

Muito obrigado Kaynan, é exatamente isso que eu preciso. Ficou muito bom e com pouca programação.

Valeu pelo retorno amigo,presisando tamos ai.
Sucesso.