MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 358
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 17/10/2018, 11:55


    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
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 358
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 18/10/2018, 14:42

    Up
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 358
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 19/10/2018, 13:18

    Alguma sugestão?
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 499
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 19/10/2018, 18:46

    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
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 358
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 19/10/2018, 21:05

    Obrigado Ivan,

    Tente pelo Dropbox.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 499
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 19/10/2018, 21:06

    Deixei no arquivo somente o formulário alterado e o relatório exemplo criado. Copie para o seu arquivo original e veja o resultado.
    Anexos
    [Resolvido]Filtro através de códigos VBA AttachmentControle de Uniformes_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (51 Kb) Baixado 19 vez(es)


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 358
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 19/10/2018, 21:15

    Vou testar e lhe retorno.

    Obrigado
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 499
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 22/10/2018, 20:16

    Ismael, novidades? Resolveu?
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 358
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 23/10/2018, 11:40

    Bom dia Ivan,

    Vou testar hoje.
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 358
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 24/10/2018, 14:55

    Ivan,

    Está funcionando, obrigado por enquanto.

      Data/hora atual: 26/4/2019, 01:15