[Resolvido]Como modificar o código pra pesquisar em 2 colunas em uma caixa de listagem

Boa tarde.

Primeiro agradeço muito a existência deste fórum, sem ele eu teria infartado tentando terminar meu projeto, pois já pesquisei e já fui ajudado diversas vezes graças a todos vocês. O código abaixo é um exemplo que tirei de algum post daqui do fórum, não lembro quem escreveu o código, mas sei que ele é funcional e me ajudou muito!

Ainda assim, preciso de ajuda nele, porque eu tenho um formulario onde tem uma caixa de listagem chamada "clista" e um caixa q uso pra pesquisar dados nela chamada "txtpesq".

O codigo abaixo faz a procura na caixa de listagem pela coluna Nomecliente e eu queria que procurasse também na coluna ParteAdversa.

Alguém poderia ajudar a modificar este código pra procurar nas duas colunas, NomeCliente e ParteAdversa?

Private Sub txtpesq_Change()
Dim strSql As String
strSql = "SELECT NomeCliente, ParteAdversa, Processo, Nº, Local, Juizo, Comarca, Situação, Código FROM CSPROCESSO WHERE " & _
"strConv(NomeCliente, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*';"
Me!clista.RowSource = strSql
End Sub


Desde já agradeço.

Olá Flavio, Veja tópico abaixo ajuda:
https://www.maximoaccess.com/t26104-resolvidofiltrar-varios-campos
No meu entender será identico falta o AND
Abraço

Saudações e obrigado pela resposta.

Li todo o tópico, abri o arquivo exemplo, olhei os codigos vb.

Não tenho conhecimento suficiente para adaptar ao código do post citado ao código q estou usando.

Pelo que vi no exemplo dos mestres lá no outro post o meu caso é diferente.

vou fazer upload exemplo.

Deixei umas tabelas base e uma consulta para o formulario abrir.

Só tem um formulario "FPESQPROCESSO" com uma caixa de listagem "clista" e um campo pra procurar "txtpesq",

Queria que ao digitar um nome ele procurasse nas 2 colunas NomeCliente e ParteAdversa.

Não sei fazer, estou tentando por aqui, mas se alguém com conhecimento puder colaborar agradeço.

Se não for possível e tiver que mudar layout para o exemplo do outro post vai ser inviável para mim, teria de modificar muita coisa por aqui.

Agradeço qq ajuda.

Isto ajuda?

https://www.maximoaccess.com/t26108-resolvidopesquisa-qualquer-campo


Private Sub txtpesq_Change()

Dim strSql As String
strSql = "SELECT NomeCliente, ParteAdversa, Processo, Nº, Local, Juizo, Comarca, Situação, Código FROM CSPROCESSO WHERE " & _
"strConv(NomeCliente, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*'" & _
"OR strConv(ParteAdversa, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*';"
Me!clista.RowSource = strSql

End Sub

Para que serve a tecla N ?

Respondi a mesma questão do que precisa Ontem,

aqui:

https://www.maximoaccess.com/t26108-resolvidopesquisa-qualquer-campo

No seu Exemplo, mude seu Código para:

Código:


Dim strSql As String
strSql = "SELECT NomeCliente, ParteAdversa, Processo, Nº, Local, Juizo, Comarca, Situação, Código FROM CSPROCESSO WHERE " & _
"strConv(NomeCliente, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*'" & _
"OR strConv(ParteAdversa, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*';"
Me!clista.RowSource = strSql


Observe a Linha OR... Basta repeti-la para os próximos Campos...


Foi Mau Alpedro, não tinha visto sua Resposta!

Amigos, foi bom isto é que é ser MaximoAccess.
Aguardamos retorno do colega.
Abraço a todos

Muito obrigado todos, show!!!

Este fórum não tem igual!

Quando se sabe parece fácil, mas não é fácil saber... rsrs


Dim strSql As String
strSql = "SELECT NomeCliente, ParteAdversa, Processo, Nº, Local, Juizo, Comarca, Situação, Código FROM CSPROCESSO WHERE " & _
"strConv(NomeCliente, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*'" & _
"OR strConv(ParteAdversa, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*';"
Me!clista.RowSource = strSql

Alpedro a tecla N a qual se referiu é o n 1042?
Se for nem sei pra que servia, o código original podia ter algo, mas já veio assim do outro exemplo eu testei e funcionou então não mudei.

Olá FabioPaes, aprendi o código contigo

Queria dizer, FlavioLima, botão N (BTN-CAD) clico e não faz nada.

Obrigado.