Filtrar formulário por combobox independentes

Prezados, possuo um formulário com os seguintes itens:

Situação da Diligênca: Enviada, Recebida, Cumprida
Situação do Pagamento: Pendente, Realizado
Opção sim/não: Recibo recebido?

Gostaria de criar um filtro no próprio relatório independente, por exemplo quero saber as diligências cumpridas com pagamento pendente e recibo recebido.

Ou as diligências enviadas com pagamento pendente, sem recibo recebido.

Podem me ajudar?

Já pesquisei no google e no forum e não consigo implementar as idéias ali postadas!

Já vi no maestro do aVelino também e não consegui implementar!

Abçs

Porpetones

Cria um .zip com seu banco e faça upload pra eu ajudar você amigo
Preciso ver seu formulário...

Juliano, infelizmente não posso upar o banco pois trata-se de banco de dados de um escritório de advocacia.

Avelino, praticamente decorei esse tutorial já de tanto que li e mesmo assim não consegui adequar seu modelo ao meu...

Abçs

Eu estava tentando colocar o seguinte:

Private Sub Comando50_Click()
me.filter = "Situação da Diligência = '" & Me!Combinação45 & "'"
me.filter = "Situação do Pagamento = '" & Me!Combinação47 & "'"
me.filteron = true
Me.Combinação45 = Null
Me.Combinação47 = Null
porém não estava conseguindo cumular os filtros.

Usei o sugerido pelo avelino, que segue adaptado ao meu BD:


Dim filtro As String
filtro = ""
If Not IsNull(Me!Combinação45) Then filtro = "Situação da Diligência = '" & Me!Combinação45 & "'"
If Not IsNull(Me!Combinação47) Then filtro = filtro & " AND Situação do Pagamento = '" & Me!Combinação47 & "'"
'If Not IsNull(Me!NomeCampoOpção) Then filtro = filtro & " AND NomeCampoOpção = " & Me!NomeCampoOpção
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)
Me.Filter = filtro
Me.FilterOn = True
Me.Combinação45 = Null
Me.Combinação47 = Null


Todavia, ao testar o botão com o box1 setado em cumprida e o box2 setado em pendente, ele apresenta o seguinte erro: Erro em tempo de execução 3075 Erro de Sintaxe (operador faltando) na expressão de consulta 'Situação da Diligência = 'Cumprida' AND Situação do Pagamento = 'Pendente".

Podem me ajudar?

Experimente usando os colchetes para o nome dos campos

Dim filtro As String
filtro = ""
If Not IsNull(Me!Combinação45) Then filtro = "[Situação da Diligência] = '" & Me!Combinação45 & "'"
If Not IsNull(Me!Combinação47) Then filtro = filtro & " AND [Situação do Pagamento] = '" & Me!Combinação47 & "'"
'If Not IsNull(Me!NomeCampoOpção) Then filtro = filtro & " AND NomeCampoOpção = " & Me!NomeCampoOpção
If InStr(filtro, "AND") = 2 Then filtro = Mid(filtro, 6)
Me.Filter = filtro
Me.FilterOn = True
Me.Combinação45 = Null
Me.Combinação47 = Null

Excelente Avelino!

Quanto aos 2 primeiros campos funcionou.

Como filtrar o campo estilo Seleção (sim/não)?

A intenção é mostrar quando desmarcado e mostrar quando marcado, ou seja, um campo sempre filtrado...

Usei o seguinte e não consegui:

If Not IsNull(Me!Seleção51) Then filtro = filtro & " AND [Recibo Recebido] = " & Me!Seleção51