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 por caixas de combinação sem hierarquia

    avatar
    JRodrigues
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 29/10/2015

    [Resolvido]Filtrar por caixas de combinação sem hierarquia Empty [Resolvido]Filtrar por caixas de combinação sem hierarquia

    Mensagem  JRodrigues 25/2/2019, 12:18

    Prezados
    Tenho um formulário com duas caixas de combinação, "Responsável" e "Ação".
    Quando filtro por apenas uma delas está ok.
    Pesquisei aqui no fórum e encontrei exemplo de filtro em cascata, mas não é esse o caso, pois nesse caso não há uma hierarquia entre as duas caixas.
    Preciso que o filtro seja aplicado independente de qual das duas caixas seja filtrada primeiro.
    Desde já agradeço.

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Filtrar por caixas de combinação sem hierarquia Empty Re: [Resolvido]Filtrar por caixas de combinação sem hierarquia

    Mensagem  crysostomo 25/2/2019, 13:19

    Código:
    Private Sub busca_Click()

      ' Encontrar o registro que coincide com o controle.
       
        Me.RecordsetClone.FindFirst "[NOME:] = '" & Me![BUSCA] & "'"
     
        Me.Bookmark = Me.RecordsetClone.Bookmark
       
        Me.NOME_.SetFocus
       
        Me.BUSCA = Null
    End Sub


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    JRodrigues
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 29/10/2015

    [Resolvido]Filtrar por caixas de combinação sem hierarquia Empty Re: [Resolvido]Filtrar por caixas de combinação sem hierarquia

    Mensagem  JRodrigues 25/2/2019, 13:47

    Prezado crysostomo, obrigado pelo retorno, mas resolvi de outra forma.
    Nas tabelas que servem de base para as caixas deixei o primeiro registro como "Mostrar todos" e utilizei o seguinte código no evento após atualizar de ambas as caixas:
    Código:

    'Nas duas tabelas de origem o código 1 refere-se ao registro "Mostrar todos"
    Dim strFiltro As String, strFiltro1 As String
        If Me!Cx_Filtra_Ação = 1 And Me!Cx_Filtra_Resp = 1 Then
            Me.FilterOn = False
        ElseIf Me!Cx_Filtra_Ação <> 1 And Me!Cx_Filtra_Resp = 1 Then
            strFiltro = "Ação = " & Me!Cx_Filtra_Ação.Column(0)
            Me.Filter = strFiltro
            Me.FilterOn = True
        ElseIf Me!Cx_Filtra_Ação = 1 And Me!Cx_Filtra_Resp <> 1 Then
            strFiltro1 = "Responsável = " & Me!Cx_Filtra_Resp.Column(0)
            Me.Filter = strFiltro1
            Me.FilterOn = True
        Else
            strFiltro = "Ação = " & Me!Cx_Filtra_Ação.Column(0)
            strFiltro1 = "Responsável = " & Me!Cx_Filtra_Resp.Column(0)
            Me.Filter = strFiltro & " And " & strFiltro1
            Me.FilterOn = True
        End If

    Talvez tenha uma forma de resumir esse código, mas o importante é que funciona.
    Muito obrigado ao fórum!
    Abraço a todos.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2676
    Registrado : 23/01/2018

    [Resolvido]Filtrar por caixas de combinação sem hierarquia Empty Re: [Resolvido]Filtrar por caixas de combinação sem hierarquia

    Mensagem  crysostomo 25/2/2019, 14:09

    eu não tinha visto "se a caixa fosse igual" um if .

    vlw


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Filtrar por caixas de combinação sem hierarquia Empty Re: [Resolvido]Filtrar por caixas de combinação sem hierarquia

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 16:43