como aplicar um filtro em uma caixa de listagem

Boa noite
Qual e o comando que devo colocar em uma caixa de texto para aplicar um filtro em uma caixa de listagem.
Posteriormente gostaria de abrir um formulário com este com o valor selecionado na caixa de texto.

Alguém dos magos poderia me passar o bizu.

obrigado!

Tudo que precisa feito de forma bem simples aqui:
https://www.maximoaccess.com/t26249-resolvidoformulario-de-pesquisa-caixa-de-listagem
Mensagem Nº 02.

Boa noite Fábio!

A origem da minha caixa de listagem é uma consulta

Dentro dos meus leigos conhecimentos tentei adaptar o seu código da seguinte maneira:


Private Sub txtNome_Change()

Dim strSql As String

strSql = "SELECT [NomeOM], [Motivo], Nr Inventario, Data, Protocolo FROM qry iventario_2 WHERE " & _
"strConv(NomeOM, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv(Motivo, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv([Nr Inventario], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"ORDER BY NomeOM;"

Me!lstOM.RowSource = strSql

End Sub

No teste quando começo a digitar a caixa de combinação fica vazia.
Não sei o que deu errado.
Se você tiver a dica agradeço.

Contem alguns errinhos amigo...
Quando o Nome do Campo tem Caracter especial ou Espçao ele deve ficar dentro de Colchetes [nome do campo] e nao nome do campo.

strSql = "SELECT [NomeOM], [Motivo], Nr Inventario, Data, Protocolo FROM qry iventario_2 WHERE " & _
"strConv(NomeOM, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv(Motivo, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv([Nr Inventario], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"ORDER BY NomeOM;"

Mude para:

strSql = "SELECT [NomeOM], [Motivo], [Nr Inventario], [Data], Protocolo FROM [qry iventario_2] WHERE " & _
"strConv(NomeOM, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv(Motivo, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv([Nr Inventario], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"ORDER BY NomeOM;"


Veja se resolve! Veja tambem se os nomes dos campos estão certos...

Bom dia,
Movi o tema para esta sala.
A sala de repositório serve apenas para disponibilizarem exemplos aos colegas, não para colocação de dúvidas

[Resolvido] funcionou beleza, inclusive com os outros comandos para abrir formulários e limpar pesquisa. Apenas fiz as adaptações de nome.

Muito obrigado!