[Resolvido]Filtros em varios campos usando o VBA

Bom dia

Estou trabalhando em um formulario com u subformulario vinculado a ele.
Estou utilizando caixa de texto para efetuar a filtragem....(varias caixas em varias colunas)

até então obtive sucesso, porem gostaria de implementar meu código.

Como está, digitando na caixa de texto ele efetua o filtro, porem quando efetuo digitação em outra caixa, o filtro assume a nova filtragem, desconsiderando a primeira.

Exemplo: tenho a coluna "matricula" e coluna "Colaborador"

gostaria que as colunas dependesem uma das outras para filtrar.

Estou enviando o exemplo anexo para fascilitar o entendimento.

siga o exemplo: digite na caixa matricula uma filtragem e não apague e apos busque uma filtragem na caixa Colaborador.

Vcs verão que ao digitar na caixa colaborador o filtro desconsidera a filtragem da caixa Matricula, assumindo assim somente a filtragem "Matricula"


E é isso que eu não quero.......preciso que os filtro sejam integrados...

veja se podem me ajudar na implementação desta VBA.

at.

Já deu uma olhada nesse exemplo?

Entendi o Conceito

Porem está apresentando o seguinte erro

Método ou membro de dados não encontrado (Erro 461)

Destacando o seguinte campo: Me.lstFiltros

Será porque meu projeto está desenvolvido sobre subformulário. subfrm_ConGeral ?

veja que na minha consulta esta buscando da caixa texto no formulario ?
Como "*" & [Formulários]![frm_ConGeral]![tx1] & "*"

Marcelo
Tenho o Access 2007 portanto, não consigo abrir teu aplicativo.

Mas pelo que escreveu entendi que lstFiltros está no formulário principal,e os controles
Matricula e colaborador no suformulário, certo?

Se sim, coloque:
Parent!lstFiltros

Agora, no fragmento da instrução SQL você escreveu:
Como "*" & [Formulários]![frm_ConGeral]![tx1] & "*"

Como está parecendo a palavra "Como" e não "Like" e também "Formulários", deduzo que seja uma consulta.
É o que posso tentar ajudar no momento.

Abraços

Ainda apresenta erro na linha em destaque:
Lembrando que tx1 é o campo matricula e tx2 campo Colaborador



Private Sub btnOK_Click()

If IsNull(Me.tx1) And (Me.tx2) Then
MsgBox "Não foi fornecido nenhum parâmetro válido para pesquisa.", vbOKOnly + vbInformation, "Sem resultados"
Else
Parent!lstFiltros.Requery
If Parent!lstFiltros.ListCount = 0 Then
MsgBox "Nenhum registro corresponde à pesquisa atual.", vbOKOnly + vbInformation, "Sem resultados"
End If
End If

End Sub

Marcelo


If IsNull(Me.tx1)and IsNull(Me.tx2) Then
MsgBox "Não foi fornecido nenhum parâmetro válido para pesquisa.", vbOKOnly + vbInformation, "Sem resultados"
Else
Parent!lstFiltros.Requery ---> só que esse código não da para entender o porque dessa linha, tem necessidade dela?
If Parent!lstFiltros.ListCount = 0 Then
MsgBox "Nenhum registro corresponde à pesquisa atual.", vbInformation, "Sem resultados"
End If
End If

Esqueci de dar baixa....desculpe.....

mas consegui resolver.......

obrigado....