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


    Filtro Múltiplos Critérios VBA

    avatar
    jowfs
    Novato
    Novato

    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 em 23/10/2019, 21: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 100%

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

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

    Mensagem  renpv em 24/10/2019, 00:17

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

    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 em 24/10/2019, 02:04

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

    Respeito às Regras 100%

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

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

    Mensagem  FranklinJSP em 24/10/2019, 16: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 100%

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

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

    Mensagem  renpv em 24/10/2019, 16: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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 22:43