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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 612
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 612
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 612
    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?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 612
    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.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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 25 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 612
    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

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

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 612
    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 612
    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: 4/6/2020, 11:59