MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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 : 620
    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 : 620
    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 : 620
    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 : 2137
    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 : 620
    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 : 2137
    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 : 620
    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 : 2137
    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 : 620
    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 : 620
    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: 8/8/2020, 01:05