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


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

    avatar
    JRodrigues
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    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 em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 699
    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 em 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


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    JRodrigues
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    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 em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 699
    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 em 25/2/2019, 14:09

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

    vlw


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou

    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: 22/5/2019, 02:19