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

    Filtro Múltiplos Critérios VBA

    avatar
    jowfs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    Filtro Múltiplos Critérios VBA Empty Filtro Múltiplos Critérios VBA

    Mensagem  jowfs Qua 23 Out - 16:03

    Olá Pessoal,

    Tenho um formulário contínuo com 9 colunas para as quais quero ter a opção de filtrar os dados.
    Ocorre que estou tentando criar a opção de filtrar múltiplos valores, considerando apenas os campos de filtro preenchidos
    Por exemplo:

    CampoDeFiltro1 = Preenchido
    CampoDeFiltro2 = Vazio
    CampoDeFiltro3 = Preenchido

    Nesse caso, considerar apenas como filtro os valores do campo 1 e 3 que filtrarão as colunas 1 e 3 respectivamente.]
    O problema é que quando tento filtrar mais de uma coluna dá erro "Tipos incompatíveis". Acho que apenas configurei algo errado no filtro. Podem me ajudar?

    Não vou colocar o código completo porque é imenso, mas segue uma prévia com o principal e onde eu tenho certeza de que está o erro:

    Código:
    Dim Filtro1 As String
        Dim Filtro2 As String
        Dim Filtro3 As String
        
        Filtro1 = "[ShipmentID] like '*" & Me!FiltroShipmentID & "*'"
        Filtro2 = "[ShipmentLocalClientName] like '*" & Me!FiltroShipmentLocalClientName & "*'"
        Filtro3 = "[ShipmentAgentName] like '*" & Me!FiltroShipmentAgentName & "*'"

        If Not IsNull(Me.FiltroShipmentID) Then
            If Not IsNull(Me.FiltroShipmentLocalClientName) Then
                If Not IsNull(Me.FiltroShipmentAgentName) Then
                Me.Filter = Filtro1 And Filtro2 And Filtro3
                Else
                Me.Filter = Filtro1 And Filtro2
                End If

        (Continua repetindo as hipóteses ...)

        Me.FilterOn = True
    avatar
    renpv
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    Filtro Múltiplos Critérios VBA Empty Re: Filtro Múltiplos Critérios VBA

    Mensagem  renpv Qua 23 Out - 19:17

    Amigo, salvo engano no maestro tem esse tipo de filtro
    avatar
    jowfs
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 16/04/2012

    Filtro Múltiplos Critérios VBA Empty Re: Filtro Múltiplos Critérios VBA

    Mensagem  jowfs Qua 23 Out - 21:04

    renpv, não entendi o que vc quis dizer.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 24/02/2016

    Filtro Múltiplos Critérios VBA Empty Re: Filtro Múltiplos Critérios VBA

    Mensagem  FranklinJSP Qui 24 Out - 11:09

    Bom día!

    Acho que são os espaços entre as consultas, tente assim:

    Código:
    Dim Filtro1 As String
        Dim Filtro2 As String
        Dim Filtro3 As String
       
        Filtro1 = "[ShipmentID] like '*" & Me!FiltroShipmentID & "*'"
        Filtro2 = "[ShipmentLocalClientName] like '*" & Me!FiltroShipmentLocalClientName & "*'"
        Filtro3 = "[ShipmentAgentName] like '*" & Me!FiltroShipmentAgentName & "*'"

        If Not IsNull(Me.FiltroShipmentID) Then
            If Not IsNull(Me.FiltroShipmentLocalClientName) Then
                If Not IsNull(Me.FiltroShipmentAgentName) Then
                Me.Filter = Filtro1 & " AND " & Filtro2 & " AND " & Filtro3
                Else
                Me.Filter = Filtro1 & " AND " & Filtro2
                End If

        (Continua repetindo as hipóteses ...)

        Me.FilterOn = True

    Saludos


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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    Filtro Múltiplos Critérios VBA Empty Re: Filtro Múltiplos Critérios VBA

    Mensagem  renpv Qui 24 Out - 11:40

    jowfs escreveu:
    renpv, não entendi o que vc quis dizer.

    Segue o link do aplicativo maestro
    https://www.usandoaccess.com.br/dicas/novidades-aplicativo-maestro-v4.asp?id=1

      Data/hora atual: Qua 28 Jul - 19:28