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]Seleção múltipla em duas caixas de listagem

    avatar
    GILDEZIO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    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 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 : Respeito às Regras 100%

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




    .................................................................................
    [Resolvido]Seleção múltipla em duas caixas de listagem Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Seleção múltipla em duas caixas de listagem Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Seleção múltipla em duas caixas de listagem Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Seleção múltipla em duas caixas de listagem Marcel11
    avatar
    GILDEZIO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 136
    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 15/11/2019, 18:31

    ok amigo

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:41