MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Filtrar vários critérios

    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Filtrar vários critérios Empty [Resolvido]Filtrar vários critérios

    Mensagem  Peutrindade 19/2/2014, 13:18

    Povo, bom dia

    Como eu faço para essa ideia funcionar?
    São vários campos para filtrar. Primeiro curso_nivel, depois semestre, depois professor, depois dia, depois horário.
    Se eu coloco um só, tudo bem. O problema é quando eu tento aplicar o segundo filtro.
    Como eu tenho que arrumar o código abaixo?

    Private Sub Report_Load()
    Dim filtro As String
    'Dim filtro1 As String
    'Dim filtro2 As String
    'Dim filtro3 As String
    'Dim filtro4 As String
    filtro = "Tab_aulas.Curso_nível = '" & [Forms]![Sub_aulas]!CbocursoNivel.Column(0) & "'"
    'filtro1 = "Tab_aulas.ProfPrat = '" & [Forms]![Sub_aulas]!CboprofPrat.Column(0) & "'"
    'filtro2 = "Tab_aulas.DiaPrat = '" & [Forms]![Sub_aulas]!CboDiaPrat.Column(0) & "'"
    'filtro3 = "Tab_aulas.HorPratIni = '" & [Forms]![Sub_aulas]!CboHorPratI.Column(0) & "'"
    'filtro4 = "Tab_aulas.Semestre = '" & [Forms]![Sub_aulas]!SemesAula & "'"
    DoCmd.ApplyFilter , filtro
    'DoCmd.ApplyFilter , filtro1
    'DoCmd.ApplyFilter , filtro2
    'DoCmd.ApplyFilter , filtro3
    'DoCmd.ApplyFilter , filtro4
    DoCmd.Maximize
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Filtrar vários critérios Empty Re: [Resolvido]Filtrar vários critérios

    Mensagem  Alexandre Neves 19/2/2014, 17:23

    Boa tarde,
    Tem-se abordado várias vezes os filtros com várias condições (são condições conjuntivas ou disjuntivas?)
    Private Sub Report_Load()
    Dim filtro As String
    filtro = "Tab_aulas.Curso_nível = '" & [Forms]![Sub_aulas]!CbocursoNivel.Column(0) & "' and Tab_aulas.ProfPrat = '" & [Forms]![Sub_aulas]!CboprofPrat.Column(0) & "' and Tab_aulas.DiaPrat = '" & [Forms]![Sub_aulas]!CboDiaPrat.Column(0) & "' and Tab_aulas.HorPratIni = '" & [Forms]![Sub_aulas]!CboHorPratI.Column(0) & "' and Tab_aulas.Semestre = '" & [Forms]![Sub_aulas]!SemesAula & "'"
    DoCmd.ApplyFilter , filtro
    DoCmd.Maximize
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Peutrindade
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 26/09/2012

    [Resolvido]Filtrar vários critérios Empty Re: [Resolvido]Filtrar vários critérios

    Mensagem  Peutrindade 22/9/2022, 20:03

    Obrigado!!

    Conteúdo patrocinado


    [Resolvido]Filtrar vários critérios Empty Re: [Resolvido]Filtrar vários critérios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:06