[Resolvido]Filtros no Access Tipo Excel

Boa noite,

Gostaria de saber se existe algum outro método de filtrar vários registro de uma vez só no Access, parecido com o Excel, onde você só seleciona o que quer e filtra

Atualmente estava usando o código abaixo, passado pelo Senhor Avelino:


If Not IsNull(Cbo_Unidade) Then
If strFiltro = "" Then
strFiltro = "Cid IN(" & Mid(Me!TXT_FILTROS, 2) & ")"
Else
strFiltro = strFiltro & " and Cid IN(" & Mid(Me!TXT_FILTROS, 2) & ")"
End If
End If


Porém, do nada, começou a não filtrar mais que um critério, e está me deixando na mão, por isso estou a procura de uma solução paralela.

Dei uma vasculhada, mas ainda não encontrei, porém sigo procurando.

Olá Ismael, envie um arquivo de exemplo para darmos uma olhada!!!

Bom dia


Segue link: https://www.dropbox.com/s/97o9i0w1n2u6opb/Controle%20Estoque.accdb?dl=0


Saídas/Consultas>Consulta Saídas>Campo Unidade>Ao selecionar, vai carregar os valores selecionados em outro campo acima>Por Exemplo, escolha Igrejinha e Campo Bom>

Ao clicar em Relatório Unidade deveria abrir o relatório filtrado com com o dados das duas cidades, e não está acontecendo>

Porém o mais estranho, é que até dias atrás, estava funcionando tudo certo, não lembro de ter feito algo que justifique não estar filtrando corretamente.

Estou verificando...

Aparentemente o botão de pesquisa vai apresentar o que irá ser impresso no relatório Unidade, como se fosse um espelho, a questão é que somente está sendo filtrado o item de pesquisa mais recente.
Porém no se código ainda não achei nada que possa ocasionar esse erro.
Mas assim que tiver uma resposta de envio.

Bom dia Ismael

Código:

Private Sub Gerar_Relatorio_Click()

On Error Resume Next

    Dim strfiltro As String
    Dim filtro As String
    
    '******************************************************************
    Me.Cbo_Unidade = Null ' <------ Adicione essa linha e veja se o relatório funciona
    '******************************************************************

    If IsNull(TXT_FILTROS) Or TXT_FILTROS = "" Then
        'DoCmd.OpenReport "Relatório_Saídas_EPIs_Uniformes", acViewPreview , strFiltro
        'DoCmd.OpenReport "Relatório_Saídas_EPIs_Uniformes", acViewPreview, , strFiltro
        DoCmd.OpenReport "Relatório_Saídas_EPIs_Uniformes", acViewReport, , strfiltro
    Else
        If strfiltro = "" Then
            strfiltro = "Unidade IN(" & Mid(Me!TXT_FILTROS, 2) & ")"
        Else
            strfiltro = strfiltro & " and Unidade IN(" & Mid(Me!TXT_FILTROS, 2) & ")"
        End If
    End If

    DoCmd.OpenReport "Relatório_Saídas_EPIs_Uniformes", acViewReport, , strfiltro
      
'DoCmd.OpenReport "Relatório_Saídas_EPIs_Uniformes", acViewReport, , strfiltro
End Sub

Saludos

FranklinJSP,

Fiz um teste prévio e funcionou, mas pode me dizer a lógica?

Ismael

Na verdade, eu não verifiquei os dados da fonte do relatório, mas notei que o relatório levou em conta o conteúdo da combobox, então quando eu limpei a combobox o relatório funcionou.

Saludos

Perfeitamente.

Então está resolvido, muito obrigado à todos.

Eu que agradeço por compartilhar, Deus abençoe vcs!!!