[Resolvido]SQL - Listar registros que possuam campos em branco sendo eles um critério da cláusula WHERE

Boa tarde amigos!
Estou com uma dúvida e gostaria de uma ajuda:

Vejam a seguinte SQL:

Código:

SELECT Id_Participante, Participante, Sexo, Nascimento, EsposaPastor, Estado, Cidade, Pais, CPF, RG, Idade FROM tbTpParticipantes WHERE (((Participante) Like '" & Me.txtPesquisa.Text & "*')) AND (((EsposaPastor) Like '" & Me.cboEP.Value & "*')) AND (((Sexo) Like '" & Me.cboSexo.Value & "*')) AND (((Estado) Like '" & Me.cboEstado & "*')) AND (((Cidade) Like '" & Me.cboCidade & "*')) AND (((CPF) Like '" & Me.txtCPF & "*'));

Esta consulta seleção é para filtrar ao digitar de algumas textbox e cbos.
O problema que não consigo resolver é que caso algum campo da tabela origem
estiverem em branco (null) e o mesmo estever como critério da cláusula WHERE
o registro não é retornado pela consulta.

Por exemplo:

O campo CPF, se ele não estiver preenchido na tabela e ele for um dos critérios da WHERE, o registro não retornará.
Como manter uma listagem completa, mesmo com registros com campos em branco?

Grato

Tente sem o asterisco depois do CPF.

Sem o asterisco não foi também... Só lista caso haja preenchido...

Ah, eu entendi que era isso mesmo que queria. Nesse caso, coloque asterisco antes tambem:

... CPF LIKE '*" & Me.NomeCampo & "*'...

Ainda assim não foi...

Boa noite, Marcelo
Se o campo está nulo e é preenchido no critério não deve aparecer. Se pretende que seja mostrado os nulos e os que satisfazem o critério, coloque
SELECT Id_Participante, Participante, Sexo, Nascimento, EsposaPastor, Estado, Cidade, Pais, CPF, RG, Idade FROM tbTpParticipantes WHERE (IsNull(Participante) or Participante Like '" & Me.txtPesquisa & "*') AND (IsNull(EsposaPastor) or EsposaPastor Like '" & Me.cboEP & "*') and (IsNull(Sexo) or Sexo Like '" & Me.cboSexo & "*') AND (IsNull(Estado) or Estado Like '" & Me.cboEstado & "*') AND (IsNull(Cidade) or Cidade Like '" & Me.cboCidade & "*') AND (IsNull(CPF) or CPF Like '" & Me.txtCPF & "*');

Grato grande Alexandre,
dessa forma, os registros retornam
apenas todos os nulos ou apenas
o registro que contenha o critério
preenchido.
O que deveria ocorrer é que mesmo
que não haja critério preenchido
e mesmo que esteja nulo o campo
da tabela que é critério sejam
retornados.

Vê se é isso:

WHERE (Participante Like '" & Me.txtPesquisa.Text & "*' Or Participante Is Null) AND (EsposaPastor Like '" & Me.cboEP.Value & "*' Or EsposaPastor Is Null) ...

Cláudio, assim até lista todos, mas não filtra, caso haja algum valor nas textbox de filtragem...

Agora que eu vi que foi a mesma sugestão do Alexandre Neves...
Sorry

Talvez isso:

WHERE (Participante Like '" & Nz(Me.txtPesquisa.Text, [Participante]) & "*' Or Participante Is Null) AND (EsposaPastor Like '" & Nz(Me.cboEP.Value, [EsposaPastor]) & "*' Or EsposaPastor Is Null) ...

Cláudio, continua do mesmo jeito... Ele ignora o critério...

Amigo Marcelo

meu Maestro demonstra isso. Abra o exemplo "filtrar listbox a mededida que se digita" Filtre o campo região. Depois limpe o campo e verá mostrando todos os registros, incluindo os em branco.

Sucesso!

Avelino, veja se eu entendi corretamente:
No seu exemplo, a os critérios da cláusula WHERE
é montadada de acordo com os dados das textbox?
exemplo:

Caso Null
WHERE Campo Is Null...

Caso not IsNull

WHERE Campo Like '*" & txtPesqisa.Text & "*'...
...

É por aí ou entendi errado?

(Está devendo o curso de consultas... (risos))

A solução fica mais fácil se puder enviar o banco de dados.

Segue em anexo:

Marcelo, qual deve ser o resultado ao filtrar pelo CPF "000.000.000-00"?

Amigo Marcelo,

segue uma proposta diferente de filtragem

Ao invés de alterar a SQL, fica mais rápido e dinâmico usar a propriedade FILTER.

Vinculei o subform a tabela de participantes, ou seja, o subform carrega todos os registros sem filtragem. Fica por conta do formulário principal aplicar a filtragem com o FILTER, sobre o subformulário.

Veja a função utilizada para filtragem:

Código:

Public Function fncFiltrar(Optional strpesquisa As String)
Dim filtro As String
filtro = ""
If Not IsNull(strpesquisa) Then filtro = filtro & "Participante LIKE '*" & strpesquisa & "*'"
If Not IsNull(Me.cboEP) Then filtro = filtro & " AND EsposaPastor LIKE '*" & Me.cboEP & "*'"
If Not IsNull(Me.cboSexo) Then filtro = filtro & " AND Sexo LIKE '*" & Me.cboSexo & "*'"
If Not IsNull(Me.cboEstado) Then filtro = filtro & " AND Estado LIKE '*" & Me.cboEstado & "*'"
If Not IsNull(Me.cboCidade) Then filtro = filtro & " AND Cidade LIKE '*" & Me.cboCidade & "*'"
If Not IsNull(Me.txtCPF) Then filtro = filtro & " AND CPF LIKE '*" & Me.txtCPF & "*'"
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)
Me!subFrmListParticipantes.Form.Filter = filtro
Me!subFrmListParticipantes.Form.FilterOn = True
End Function

Sucesso!

Cláudio, o resultado será o registro que tenha o CPF digitado. Ele, aparece normalmente caso esteja na tabela.
E ao digitar, ele filtra e não inclui a máscara, apenas os caracteres digitados. Na tabela o CPF é apenas
números, os símbolos da máscara não são salvos na tabela.

Avelino, gostei da proposta apresentada por você. Só uma dúvida:
Em alguns testes que fiz anteriormente, usar o filter aparentava
ser um pouco mais lento que usar uma SQL. No entanto, não deixo de
considerar que a filtragem será feita sempre em uma tabela local o que
talvez nivela as duas opções.

Bom, teste então. De qualquer forma a estrutura de filtragem é mesma para o o uso da SQL

Código:

Public Function fncFiltrar(Optional strpesquisa As String)
Dim filtro As String
filtro = ""
If Not IsNull(strpesquisa) Then filtro = filtro & "Participante LIKE '*" & strpesquisa & "*'"
If Not IsNull(Me.cboEP) Then filtro = filtro & " AND EsposaPastor LIKE '*" & Me.cboEP & "*'"
If Not IsNull(Me.cboSexo) Then filtro = filtro & " AND Sexo LIKE '*" & Me.cboSexo & "*'"
If Not IsNull(Me.cboEstado) Then filtro = filtro & " AND Estado LIKE '*" & Me.cboEstado & "*'"
If Not IsNull(Me.cboCidade) Then filtro = filtro & " AND Cidade LIKE '*" & Me.cboCidade & "*'"
If Not IsNull(Me.txtCPF) Then filtro = filtro & " AND CPF LIKE '*" & Me.txtCPF & "*'"
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)

Me!subFrmListParticipantes.Form.RecordSource = "SELECT * FROM tbTpParticipantes WHERE " & filtro

End Function

Ainda prefiro a propriedade filter, disparado!

Sucesso!

Marcelo, não foi o que vc mencionou na primeira mensagem:

O campo CPF, se ele não estiver preenchido na tabela e ele for um dos critérios da WHERE, o registro não retornará.
Como manter uma listagem completa, mesmo com registros com campos em branco?

Então o resultado deveria ser o CPF pesquisado mais os registros com CPF nulo, de acordo com o texto acima.
Ou então eu ainda não entendi o problema...

Cláudio, imagine a seguinte situação:

Tenho uma tabela com os campos: Nome e CPF.

Tenho um formulário de filtragem...

Preciso que o formulário de filtragem me retorne
todos os registros da tabela.

Só que a SQL montada como origem dos dados do formulário
de filtragem inclui na sua cláusula WHERE como critério
o CPF...

No formulário de filtragem tenho uma textbox que informo
o cpf para filtragem...

O problema é que caso tenha algum registro que o campo CPF
não estivesse preenchido na tabela, ele não aparece na listagem, pois
o formulário de filtragem deve carregar com todos os dados da
tabela...

Avelino, fico lhe devendo mais essa! Deu certinho!

Grato a todos que se empenharam a solução desse problema!

Obrigado a todos mesmo!

Então é só ter uma instrução sql para abrir o formulário e para remover os filtros, e outra para aplicar algum filtro.

Se tivesse entendido isso no início, teria sido bem mais fácil...

... pois o formulário de filtragem deve carregar com todos os dados da tabela...

Não sei, depois de tudo ainda fiquei meio confuso. Se quer carregar todos os dados da tabela, por que o filtro? Acho que ainda me escapou alguma coisa

De qualquer forma, Cláudio, estou muito grato pela ajuda
e conto com suas ajudas futuras também!!!

Claro Marcelo, pode contar.

Grande criquio, acho que não me expressei bem...

Na verdade ao carregar o formulário de pesquisa
todos os registros da tabela deveriam serem carregados.
Ocorria que, caso algum campo da tabela que servisse
como critério da cláusula WHERE da SQL estivesse Null,
o registro não carregava. Apena carregava os registros
em que todos os campos que fossem filtros da WHERE estivessem
preenchidos... Era isso. Perdão por não ter me expressado
com mais clareza. Mas o bom é que foi resolvido. Lembrando
que sempre estarei contando com sua ajuda também!