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]Filtros no Access Tipo Excel

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtros no Access Tipo Excel Empty [Resolvido]Filtros no Access Tipo Excel

    Mensagem  Ismael Silva em Seg 11 Jan 2021 - 0:48

    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.


    Robystanley
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 21/12/2015

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  Robystanley em Seg 11 Jan 2021 - 3:44

    Olá Ismael, envie um arquivo de exemplo para darmos uma olhada!!!
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  Ismael Silva em Ter 12 Jan 2021 - 11:50

    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.
    Robystanley
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 21/12/2015

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  Robystanley em Qua 13 Jan 2021 - 18:45

    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.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 416
    Registrado : 25/02/2016

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  FranklinJSP em Seg 18 Jan 2021 - 14:41

    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


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

    Robystanley gosta desta mensagem

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  Ismael Silva em Seg 18 Jan 2021 - 14:54

    FranklinJSP,

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 416
    Registrado : 25/02/2016

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  FranklinJSP em Seg 18 Jan 2021 - 16:40

    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


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

    Robystanley gosta desta mensagem

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  Ismael Silva em Seg 18 Jan 2021 - 16:48

    Perfeitamente.

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

    Robystanley gosta desta mensagem

    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 416
    Registrado : 25/02/2016

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  FranklinJSP em Ter 19 Jan 2021 - 13:53

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    Robystanley
    Robystanley
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 110
    Registrado : 21/12/2015

    [Resolvido]Filtros no Access Tipo Excel Empty Re: [Resolvido]Filtros no Access Tipo Excel

    Mensagem  Robystanley em Ter 19 Jan 2021 - 16:57

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

      Data/hora atual: Sex 22 Jan 2021 - 20:15