[Resolvido]Filtro através de códigos VBA

Bom dia,



Criei um formulário com várias opções de filtros, como por exemplo filtro entre datas, filtro por tipo de item, e etc.. E ao informar os critérios, eu quero que ao clicar em gerar o relatório, traga somente os dados, cujos critérios de filtros informados. Tentei inserir a mesma lógica que o mestre Alexandre Neves me passou em um outro tópico, mas não obtive sucesso no que eu quero fazer.

E também seguindo esta mesma lógica, como eu posso fazer para que eu tenha mais de uma opção de filtro, por exemplo na combo, eu preciso filtrar por 4 itens, para que no relatório me traga só estes itens.



Formulário é: Frm_Filtros

Neste caso quero os filtros sejam buscados na Tabela: Tbl_Saída_Detalhada, por exemplo quero saber tudo que entrou em um determinado período de datas, e por itens.

Espero ter me feito entender.

Obrigado






https://www.dropbox.com/s/040hgikz1mkjdae/Controle%20de%20Uniformes.accdb?dl=0

Up

Alguma sugestão?

Arquivo grande demais. Como posso reenviá-lo?

Combobox TIPO_UNIFORME alterada para caixa de listagem
Propriedade "Seleção Múltipla" setada como "sim"

Código utilizado no formulário

Código:

Private Sub btFiltro_Click()

    Dim strFiltroData As String
    Dim strFiltroTipoUniforme As String, Sel As Variant, j As Boolean
   
    If Nz(Me!Data_Inicial) <> "" Then strFiltro = "data_saida>=#" & Format(Me!Data_Inicial, "mm/dd/yyyy") & "#"
    If Nz(Me!Data_Final) <> "" Then strFiltro = IIf(strFiltro <> "", strFiltro & " and ", "") & "data_saida <=#" & Format(Me!Data_Final, "mm/dd/yyyy") & "#"
   
    strFiltroTipoUniforme = "item in("
    For Each Sel In Me!Tipo_Uniforme.ItemsSelected
        strFiltroTipoUniforme = strFiltroTipoUniforme & ",""" & Me!Tipo_Uniforme.Column(0, Sel) & """"
        j = True
    Next
   
    If j = True And strFiltroData <> "" Then
        DoCmd.OpenReport "SeuRelatório", acViewPreview, , strFiltroData & " and " & strFiltroTipoUniforme
    ElseIf j Then
        DoCmd.OpenReport "SeuRelatório", acViewPreview, , strFiltroTipoUniforme
    ElseIf strFiltroData <> "SeuRelatório" Then
        DoCmd.OpenReport "SeuRelatório", acViewPreview, , strFiltroData
    Else
        DoCmd.OpenReport "SeuRelatório", acViewPreview
    End If

End Sub

Private Sub rtlLimpaSelecao_Click() 'controle rótulo

    Dim n As Integer

    For n = (Me!Tipo_Uniforme.ListCount - 1) To 0 Step -1
        Me!Tipo_Uniforme.Selected(n) = False
    Next

End Sub

Private Sub rtlSelecionaTudo_Click() 'controle rótulo

    Dim n As Integer

    For n = (Me!Tipo_Uniforme.ListCount - 1) To 0 Step -1
        Me!Tipo_Uniforme.Selected(n) = True
    Next

End Sub

Obrigado Ivan,

Tente pelo Dropbox.

Deixei no arquivo somente o formulário alterado e o relatório exemplo criado. Copie para o seu arquivo original e veja o resultado.

Vou testar e lhe retorno.

Obrigado

Ismael, novidades? Resolveu?

Bom dia Ivan,

Vou testar hoje.

Ivan,

Está funcionando, obrigado por enquanto.