[Resolvido]Consulta alimentada com critérios de várias caixas de seleção

Boa tarde, pessoal.

Estou tentando fazer um Relatório (rlt_teste) cujos critérios para a Consulta que o alimenta vêm de um Formulário (Fml_CritériosParaRelatório). Nesse Formulário tem várias caixas de seleção, 30 para ser mais exato. Essas caixas de seleção serão os critérios. A consulta deve selecionar apenas a (ou as) caixas de seleção que estão marcadas. Alguém pode me ajudar por favor. Abaixo envio o BD para vossa apreciação.
Muito Obrigado,

Walter

Bom dia, Walter!

Sugiro que dê uma olhada neste tópico: https://www.maximoaccess.com/t11719-resolvidorelatorio-com-varios-criterios
Principalmente no exemplo de filtragem pelo VBA, do Avelino Sampaio.

Att, Delson

Bom dia, Delson.
Muito obrigado, pela atenção.

Olhei o exemplo do Avelino que você sugeriu, mas não ficou muito claro para mim como fazer as substituições.
Primeiro: Onde devo colocar esse código? No evento ao clicar do botão?
Segundo: Como no meu formulario os criterios são escolhidos por caixa de seleção, elas seráo -1 ou 0 (zero). Onde coloco isso?


Código do Avelino:



Sugiro montar a filtragem pelo VBA e não pela consulta.

Exemplo de uma estrutura de filtragem pelo VBA:


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)

docmd.OpenReport "NomeRelatório",acViewPreview ,,filtro


Fiquei um pouco perdido...
Pode me ajudar?

Muito obrigado.

Walter

Acho que a solução seria fazer uma função ou código para isso, mas ainda não cheguei nessa categoria.... o jeito é aguardar algum colega mais experiente que me ajude....

Boa tarde Walter!

Veja no relatório rlt_teste se é isto que você está querendo fazer!
Na parte superior, via código VBA (ainda falta implementar alguns dos 30 campos), temos somente com os resultados dos exames selecionados; e logo abaixo o relatório Access com todos os campos.

Abraço, Delson

Walter, como ficou essa situação?

Aguardamos...

Foi resolvido, sim. Damasceno.
Acabei esquecendo de colocar o Resolvido.
Desculpe e obrigado.

Walter