[Resolvido]Pesquisa Com Vários Critérios

Olá

Tenho um formulário de pesquisa com 12 opções e criei uma consulta com estes vários campos e no critério de cada um coloquei,

Como "*" & [Forms]![frmAvPesquisa]![txtincidente] & "*"

Onde txt...são as várias caixas de texto/combo que tenho no formulário.

No entanto a pesquisa não retorna qualquer resultado.
Se fizer a mesma consulta utilizando "ou", ou seja, fazer a pesquisa apenas por um campo funciona, agora por vários não há forma de funcionar. Devo estar a fazer alguma coisa errada.

Já pesquisei no forum e vi exemplos semelhantes com o código que mencionei em cima e esses funcionam mas na minha BD não.

A minha BD

https://www.dropbox.com/s/9lbloe9auxkzdx2/InGest.accdb

Formulário Avpesquisa; consulta csltavpesquisa

Já tentou utilizar as linhas OU que tem no critério? Tambem pode ser feito diretamente no formulário:

Código:

Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE Campo1 LIKE '*" & Me.Campo1DoForm & "*' Or Campo2 LIKE '*" & Me.Campo2DoForm & "*' Or Campo3 LIKE '*" & Me.Campo3DoForm & "*'"

Olá,

Sim, fiz isso na consulta, ficou assim

https://www.dropbox.com/s/h5mxrzr4vwl8atf/Consulta.png

Mas não funciona, filtra apenas por um critério.

Tentou no formulário como passei? Se a ideia é filtrar por todos os campos juntos, ou seja, se tiver que atender a todos os critérios juntos, troque o Or por And.

Eu quero ter a hipótese de pesquisar por mais do que um campo mas não necessariamente todos ao mesmo tempo.

Como relaciono o código que me passou com a caixa de listagem?
A pesquisa é apresentada numa caixa de listagem.

Troque Me.RecordSource por Me.NomeDaListbox.RowSource.

Fiz o seguinte,

Código:

Dim strSQL As String

strSQL = "SELECT Avarias.Incidente, Avarias.notaD, Avarias.Data, Avarias.Classe, Avarias.Tipo, Avarias.AO, Avarias.Concelho, Avarias.Freguesia, Avarias.Local, Avarias.PT, Avarias.Estado, Avarias.Obra"
strSQL = strSQL & "FROM Avarias"
strSQL = strSQL & "WHERE Avarias.Incidente Like '*" & Me.txtincidente & "*' AND Avarias.notaD Like '*" & Me.txtnota & "*' AND Avarias.data Like '*" & Me.txtdata & "*' AND Avarias.Classe Like '*" & Me.txtclasse & "*' AND Avarias.Tipo Like '*" & Me.txttipo & "*' AND Avarias.AO Like '*" & Me.txtao & "*' AND Avarias.Concelho Like '*" & Me.txtconcelho & "*' AND Avarias.Freguesia Like '*" & Me.txtfreguesia & "*' AND Avarias.Local Like '*" & Me.txtlocal & "*' AND Avarias.PT Like '*" & Me.txtpt & "*' AND Avarias.Estado Like '*" & Me.txtestado & "*' AND Avarias.Obra Like '*'" & Me.txtobra & "*'"

Me.lstAvpesquisa.RowSource = strSQL

Quando executo aparece a seguinte mensagem,

Method or data member not found e assinala o seguinte código Me.txtdata.

No formulário eu tenho uma caixa de texto com o nome txtdata, não sei o porquê de "ele" dizer que não existe.

Tente colocar um espaço entre a aspa e o FROM e entre a aspa e o WHERE.

Olá

como alternativa para estudo, ofereço uma função para multiplas filtragens, justamente como está precisando.

veja neste meu aplicativo exemplo abaixo:

http://www.usandoaccess.com.br/dicas/dica34.asp?id=1#inicio

Sucesso!

Tentei colocar o espaço e continua a dar o mesmo erro.

Avelino,
Vou ver a sua dica mas para já gostava que funcionasse desta forma porque preciso desta pesquisa a funcionar.

Ninguém utiliza consultas deste género?

Caro nioxys,

Penso que resolve o problema se na consulta colocar: or null no final de cada critério

Exemplo:

Como "*" & [Forms]![frmAvPesquisa]![txtincidente] & "*" or null

obg

Olá Luís,

Fiz o que sugeriu, no entanto dá um erro de sintaxe

Código:

SELECT Avarias.Incidente, Avarias.notaD, Avarias.Data, Avarias.Classe, Avarias.Tipo, Avarias.AO, Avarias.Concelho, Avarias.Freguesia, Avarias.Local, Avarias.PT, Avarias.Estado, Avarias.Obra
FROM Avarias
WHERE (((Avarias.Incidente) Like "*" & [Forms]![frmAvPesquisa]![txtincidente] & "*" or Null) AND ((Avarias.notaD) Like "*" & [Forms]![frmAvPesquisa]![txtnota] & "*" or Null) AND ((Avarias.Data) Like "*" & [Forms]![frmAvPesquisa]![txtdata] & "*" or Null) AND ((Avarias.Classe) Like "*" & [Forms]![frmAvPesquisa]![txtclasse] & "*" or Null) AND ((Avarias.Tipo) Like "*" & [Forms]![frmAvPesquisa]![txttipo] & "*" or Null) AND ((Avarias.AO) Like "*" & [Forms]![frmAvPesquisa]![txtao] & "*" or Null) AND ((Avarias.Concelho) Like "*" & [Forms]![frmAvPesquisa]![txtconcelho] & "*" or Null) AND ((Avarias.Freguesia) Like "*" & [Forms]![frmAvPesquisa]![txtfreguesia] & "*" or Null) AND ((Avarias.Local) Like "*" & [Forms]![frmAvPesquisa]![txtlocal] & "*" or Null) AND ((Avarias.PT) Like "*" & [Forms]![frmAvPesquisa]![txtpt] & "*" or Null) AND ((Avarias.Estado) Like "*” & [Forms]![frmAvPesquisa]![txtestado] & "*" or Null) AND ((Avarias.Obra) Like "*" & [Forms]![frmAvPesquisa]![txtobra] & "*" or Null));

Segue arquivo , conforme o meu código proposto

Bom estudo!

De facto há uma diferença se se modificar o SQL ou na consulta directamente em modo de desenho.

Segue o SQL da consulta:

SELECT Avarias.Incidente, Avarias.notaD, Avarias.Data, Avarias.Classe, Avarias.Tipo, Avarias.AO, Avarias.Concelho, Avarias.Freguesia, Avarias.Local, Avarias.PT, Avarias.Estado, Avarias.Obra, Avarias.IDavarias
FROM Avarias
WHERE (((Avarias.Incidente) Like "*" & [Forms]![frmAvPesquisa]![txtincidente] & "*" Or (Avarias.Incidente) Is Null) AND ((Avarias.notaD) Like "*" & [Forms]![frmAvPesquisa]![txtnota] & "*" Or (Avarias.notaD) Is Null) AND ((Avarias.Data) Like "*" & [Forms]![frmAvPesquisa]![txtdata] & "*" Or (Avarias.Data) Is Null) AND ((Avarias.Classe) Like "*" & [Forms]![frmAvPesquisa]![txtclasse] & "*" Or (Avarias.Classe) Is Null) AND ((Avarias.Tipo) Like "*" & [Forms]![frmAvPesquisa]![txttipo] & "*" Or (Avarias.Tipo) Is Null) AND ((Avarias.AO) Like "*" & [Forms]![frmAvPesquisa]![txtao] & "*" Or (Avarias.AO) Is Null) AND ((Avarias.Concelho) Like "*" & [Forms]![frmAvPesquisa]![txtconcelho] & "*" Or (Avarias.Concelho) Is Null) AND ((Avarias.Freguesia) Like "*" & [Forms]![frmAvPesquisa]![txtfreguesia] & "*" Or (Avarias.Freguesia) Is Null) AND ((Avarias.Local) Like "*" & [Forms]![frmAvPesquisa]![txtlocal] Or (Avarias.Local) Is Null) AND ((Avarias.PT) Like "*" & [Forms]![frmAvPesquisa]![txtpt] Or (Avarias.PT) Is Null) AND ((Avarias.Estado) Like "*" & [Forms]![frmAvPesquisa]![txtestado] & "*" Or (Avarias.Estado) Is Null) AND ((Avarias.Obra) Like "*" & [Forms]![frmAvPesquisa]![txtobra] & "*" Or (Avarias.Obra) Is Null));

Pode fazer copiar/colar para a sua consulta e verá que funciona.

obg

Obrigado aos dois, já funciona.

Avelino, peço desculpa não ter aprofundado a sua dica, vou estudar o ficheiro, parece-me ser uma boa opção também.

Obrigado mais uma vez.