[Resolvido]Abrir Relatorio filtrado por checkbox

Tenho 9 checkbox no meu formulario, gostaria de abrir um relatorio que informe o conteudo de checkbox selecionado

Tem como fazer esse tipo situação?

Olá, seja bem vindo ao fórum.

Explique com mais detalhes sua necessidade.

Desculpa se não fui muito específico,
Anexo a figura da minha dúvida, visualizando acho que o entendimento fica melhor.

Obrigado

Uma forma pode ser você nomear os selectbox seguindo a nomeação dos campos no relatório. Exemplo:

RELATÓRIO  → FORMULÁRIO
cbxNome    → txtNome
cbxCPF     → txtCPF
cbxFone    → txtFone

Agora, no evento ao carregar do relatório, você coloca uma funçãozinha para percorrer os campos e verificar os controles de nome semelhante no formulário e no relatório. Se os controles que começam com "cbx" no formulário estiverem marcados, os controles que começarem com "txt" e tiver o restante igual ao restante dos checkboxes do formulário ficarão visíveis. Depois, alinha os controles visíveis para não ficar espaço entre eles.

Então, no "Ao carregar" do relatório:

Código:

Dim C As Control

For Each C In Forms!NomeDoForm.Controls
   If Left(C.Name, 3) = "cbx" Then
       If C.Name.Value = -1 Then
           Me("txt" & Right(C.Name, Len(C.Name) - 3)).Visible = True
       Else
           Me("txt" & Right(C.Name, Len(C.Name) - 3)).Visible = False
       End If
   End If
Next

Veja a rotina completa, incluindo o reposicionamento dos campos de forma a não ficar espaços, caso seja necessário aplicar isso:

Código:

    Dim C As Control, Nome As String, Esquerda As Integer

    Esquerda = Me.txtNome.Left
    Nome = ""

    For Each C In Forms!frmFiltro.Controls
        If Left(C.Name, 3) = "cbx" Then
            If C.Value = -1 Then
                Me("txt" & Right(C.Name, Len(C.Name) - 3)).Visible = True
                If Nome = "" Then
                    Me("txt" & Right(C.Name, Len(C.Name) - 3)).Left = Esquerda
                    Nome = "txt" & Right(C.Name, Len(C.Name) - 3)
                Else
                    Me("txt" & Right(C.Name, Len(C.Name) - 3)).Left = Me("" & Nome & "").Left + Me("" & Nome & "").Width
                    Nome = "txt" & Right(C.Name, Len(C.Name) - 3)
                End If
            Else
                Me("txt" & Right(C.Name, Len(C.Name) - 3)).Visible = False
            End If
        End If
    Next

C = Representa os nomes dos controles;
Nome = Armazena o nome do controle para que, no próximo loop, o Left dele possa ser aplicado ao Left do controle atual;
Esquerda = Pega o Left do primeiro controle do relatório para ser aplicado no primeiro Loop.

E então, conseguiu resolver esse?

Como não houve resposta, estou passando o tópico a Resolvido. Se necessário, dê uma up nele.