[Resolvido]Filtrar listbox com evento change em várias textbox

Bom dia,

Mais uma vez recorro aos vossos conhecimentos e generosidade para me apontarem o caminho...
Já apliquei vários métodos que pesquisei neste excelente fórum e no Google mas nenhum resultou.
Tenho aprendido muito convosco sobre Access e Vba e tenho "desenvolvido" umas coisas engraçadas que me ajudam bastante no meu trabalho, mas de vez em quando não consigo arranjar solução para o que preciso.
Penso que é possível fazer porque me parece que já vi em tempos um exemplo (creio que do mestre JPaulo) aqui:

https://www.maximoaccess.com/t42-pesquisa-avancada?highlight=pesquisa+dinamica

mas agora não consigo aceder.
Precisava de ir limitando as linhas numa listbox à medida que vou inserindo o que quero no evento change em várias textbox em ordem aleatória.
Desde já agradeço a vossa atenção e disponibilidade.

Anexo dbTeste.

Cumprimentos

Olá;

Uma forma bem simples de filtrar em qualquer campo;

Download

Código:

Private Sub txtFiltra_Change()
Dim strCriterio$
Dim strFiltro$

strFiltro = Me.txtFiltra.Text

strCriterio = " where Campo1 like '*" & strFiltro & "*' or Campo2 like '*" & strFiltro & "*' or Campo3 like '*" & strFiltro & "*'" _
& " or Campo4 like '*" & strFiltro & "*' or Campo5 like '*" & strFiltro & "*' or Campo6 like '*" & strFiltro & "*' or Campo7 like '*" & strFiltro & "*'" _
& " or Campo8 like '*" & strFiltro & "*' or Campo9 like '*" & strFiltro & "*'"

Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
End Sub

Obrigado pela rapidez na resposta Mestre JPaulo.

Peço desculpa, não me fiz entender devidamente. Eu pretendo, por exemplo, ao digitar numa textbox "txtNome" limitar a lista ao "João". Depois, ao digitar na textbox "txtApelido" limitar as linhas em que o nome é "João" ao "João Silva" e por aí fora num total de 4 textbox. Mas não por esta ordem necessariamente. Posso querer por primeiro Silva e depois João   .

Mais uma vez obrigado,

Ola;

Mais ou menos assim;

Download

Aplica-se aos restantes, com apenas a modificações dos nomes dos campos;

Código:

Private Sub txtNome_Change()
Dim strCriterio$
Dim strFiltro$

strFiltro = Me.txtNome.Text

    If IsNull(Me.txtSobrenome) And IsNull(Me.txtApelido) Then
        strCriterio = " where Campo2 like '*" & strFiltro & "*'"
        Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
    ElseIf Not IsNull(Me.txtSobrenome) And IsNull(Me.txtApelido) Then
        strCriterio = " where Campo2 like '*" & strFiltro & "*' AND Campo3 like '*" & Me.txtSobrenome & "*'"
        Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
    ElseIf IsNull(Me.txtSobrenome) And Not IsNull(Me.txtApelido) Then
        strCriterio = " where Campo2 like '*" & strFiltro & "*' AND Campo4 like '*" & Me.txtApelido & "*'"
        Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
    ElseIf Not IsNull(Me.txtSobrenome) And Not IsNull(Me.txtApelido) Then
        strCriterio = " where Campo2 like '*" & strFiltro & "*' AND Campo3 like '*" & Me.txtSobrenome & "*' AND Campo4 like '*" & Me.txtApelido & "*'"
        Me.lstLista.RowSource = " SELECT * FROM Tabela1 " & strCriterio
    End If
End Sub

Bom dia Mestre "Amazing" JPaulo,

É isso mesmo. O que é que não consegue fazer? Fartei-me de pesquisar e não encontrei nenhum exemplo, e do nada...é só perguntar.
Muito obrigado a todos do fórum por partilharem os vossos conhecimentos. Vocês são fantásticos...

Um abraço,

Está resolvido.

Ops. Faltava o resolvido...

Obrigado pelo retorno o forum agradece.

Se puder, não esqueça de ajudar o forum nos links abaixo, só com a ajuda de todos podemos melhorar.

Bom dia,

Galera! Tenho que realizar o mesmo filtro, só que eu preciso que ele tem 7 colunas aonde eu posso pesquisar, só que a primeira é para realizar um filtro de datas (aonde eu tenho dois TextBox aonde eu coloco o range das datas que eu quero que filtre), deste modo eu terei mais de 1000 linhas de código!!!!

Não teriamos como realizar de uma maneira mais fácil?
Segue a imagem do meu BD!