MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Seleção múltipla em duas caixas de listagem

    avatar
    GILDEZIO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 23/04/2014

    [Resolvido]Seleção múltipla em duas caixas de listagem Empty [Resolvido]Seleção múltipla em duas caixas de listagem

    Mensagem  GILDEZIO em 11/10/2019, 23:41

    Amigos boa Noite, tenho uma caixa de listagem com seleção múltipla que faço filtro em um relatório. No botão para abrir o relatório uso o seguinte código abaixo que funciona perfeitamente. Só que eu queria acrescentar mais uma caixa, ou seja, abrir o relatório conforme seleção das duas caixas. Como que faço?
    Seleção múltipla em duas caixas de listagem

    Dim strFiltro As String, Sel As Variant, j As Boolean
    strFiltro = "in("

    For Each Sel In Me!Lista.ItemsSelected

    strFiltro = strFiltro & Me!minhacaixadelistegem.Column(0, Sel) & ","
    j = True
    Next
    strFiltro = Mid(strFiltro, 1, Len(strFiltro) - 1) & ")"
    strFiltro = "meu campo " & strFiltro

    If j = False Then Exit Sub 'Aborta, caso não haja item selecionado
    DoCmd.OpenReport "meu relatorio", acViewPreview, , strFiltro
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3206
    Registrado : 21/04/2011

    [Resolvido]Seleção múltipla em duas caixas de listagem Empty Re: [Resolvido]Seleção múltipla em duas caixas de listagem

    Mensagem  Marcelo David em 14/10/2019, 12:48

    Bom dia,

    você deverá repetir esse trecho de código logo abaixo dele mesmo:

    Código:
    For Each Sel In Me!Lista.ItemsSelected

        strFiltro = strFiltro & Me!minhacaixadelistegem.Column(0, Sel) & ","
        j = True
    Next

    Só que, o trecho repedido deverá ser ajustado a outra listbox.

    O Códido completo ficaria semelhante a esse:

    Código:
    Dim strFiltro As String, Sel As Variant, j As Boolean
    strFiltro = "in("

    For Each Sel In Me!Lista.ItemsSelected
        strFiltro = strFiltro & Me!minhacaixadelistegem.Column(0, Sel) & ","
        j = True
    Next

    For Each Sel In Me!OutraLista.ItemsSelected
        strFiltro = strFiltro & Me!minhacaixadelistegem.Column(0, Sel) & ","
        j = True
    Next

    strFiltro = Mid(strFiltro, 1, Len(strFiltro) - 1) & ")"
    strFiltro = "meu campo " & strFiltro

    If j = False Then Exit Sub 'Aborta, caso não haja item selecionado
        DoCmd.OpenReport "meu relatorio", acViewPreview, , strFiltro
    End Sub




    .................................................................................
    Marcelo David | [Resolvido]Seleção múltipla em duas caixas de listagem LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    avatar
    GILDEZIO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 122
    Registrado : 23/04/2014

    [Resolvido]Seleção múltipla em duas caixas de listagem Empty Re: [Resolvido]Seleção múltipla em duas caixas de listagem

    Mensagem  GILDEZIO em 15/11/2019, 18:31

    ok amigo

      Data/hora atual: 25/11/2020, 14:36