[Resolvido]Erro em caixa de listagem

Bom dia estou tentando aplicar um filtro em uma caixa de listagem, mas como não sei quase nada de VBA, o código não está redondo.

Dados do problema:

Consulta = Historico_Indv

Formulário de consulta = Frm_Historico

Ao escrever qualquer um dos campos da consulta em uma caixa de texto, gostaria que a caixa de listagem fosse atualizada.

Código que eu inseri

Private Sub txtNome_Change()

Dim strSql As String

strSql = "SELECT SiglaOM,[POSTO_GRADUAÇÃO],[Nome Completo],Certificado, Dt_Validade,Cargo_Funcao,Situacao,Descredenciado FROM Historico_Indv WHERE " & _
"strConv(SiglaOM, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv([POSTO_GRADUAÇÃO], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv([Nome Completo], 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv(Certificado, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv(Dt_Validade, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv(Cargo_Funcao, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"OR strConv(Situacao, 2, 1042) like '*" & StrConv(Me!txtNome.Text, 2, 1042) & "*'" & _
"ORDER BY NomeOM;"

Me!lstHistorico.RowSource = strSql




Segue anexo o BD.

Obrigado

Será isto ?

Download

Olá Rodrigues,

Veja se é isto o que vc quer. Não vi o exemplo do JPaulo enquanto preparava este:

Outra coisa esqueci-me de acrescentar a sintaxe em sua consulta Historico_Indv, na linha Campo referente ao campo NomeCompleto:

Nome Completo: SeqConv([NomeCompleto];2)

Boa noite JPaulo e Good Guy

Importei o formulário para o meu BD e é exatamente isso que preciso.

Para efeitos didáticos não identifiquei o código que o Good Guy usou uma vez que só vi uma pequena mudança no que eu tinha tentado fazer.

No caso do arquivo do JPaulo não entendi como foi feito o link do módulo1 com o formulário e se esse tipo de solução pode ser usada em qualquer BD, me parece que sim apenas mudando os nomes da caixa de listagem.

Na verdade aquela instrução Sql eu tentei adaptar de outro banco de dados para o qual obtive ajuda neste fórum.

Nesse contexto, no mesmo formulário tentei colocar um botão para limpar a pesquisa que também não funcionou e, ainda, gostaria de clicar em um nome na lstHistorico e vizualizar o relatório Historico_Indv

Para isso tentei adaptar os codigos abaixo:

botão:

Private Sub btnlimpa_Click()

Dim strSql1 As String
Me.txtNome = Null
strSql1 = "SELECT SiglaOM,[POSTO_GRADUAÇÃO],[Nome Completo],Certificado, Dt_Validade,Cargo_Funcao,Situacao,Descredenciado FROM Historico_Indv"
Me!lstHistorico.RowSource = strSql1
Me.txtNome.SetFocus
End Sub

Abrir relatório:

Private Sub lstHistorico_Click()

DoCmd.OpenReport "Historico_Indv", acViewPreview, "", "[Nome Completo]=[Forms]![Frm_Historico]![lstHistorico]", , acNormal

End Sub


Gostaria de mais uma vez obter ajuda no BD anexo.

Obrigado.

Ola;

Esqueça o Modulo1 que importei para testes;

Veja se é isto;

Não necessita de qualquer botão para aparecerm todos os dados na lista, basta apagar o que escreve na caixa filtro.

E com um (1) click na lista vai abrir o relatorio filtrado.

Download

Era isso JPaulo.
Por enquanto resolvido.

O botão limpa filtro era mais uma perfumaria.

Obrigado pela atenção.

Obrigado pelo retorno o forum agradece.