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


    Capturar Valores de ListBox de Seleção Múltipla

    avatar
    rgondim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 24/02/2012

    Capturar Valores de ListBox de Seleção Múltipla Empty Capturar Valores de ListBox de Seleção Múltipla

    Mensagem  rgondim 9/7/2012, 21:06

    ListBox de seleção múltipla passa retornam nulo como valor padrão. Mas através da propriedade ItemSelect, podemos capturar os valores selecionados.
    A função abaixo pode ser usada para filtragem baseada no resultado dos itens marcados na Listbox.

    'Adaptada de exemplo fornecido por Elcio Pauli
    Function SelecMult()
    Dim ctl As Control, frm As Form, lngContador As Long
    Dim strWhere As String

    Set frm = Forms!NomeForm
    Set ctl = frm!NomeListBox

    strWhere = ""
    For lngContador = 0 To ctl.ListCount - 1
    If ctl.Selected(lngContador) Then
    strWhere = strWhere & "," & ctl.Column(0, lngContador)
    End If
    Next
    strWhere = Mid(strWhere, 2)

    If ctl.ItemsSelected.Count = 0 Then
    ...
    ElseIf ctl.ItemsSelected.Count > 0 Then
    ...
    End If
    End Function

    Cumprimentos.

      Data/hora atual: 29/3/2024, 01:29