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]ItemsSelected

    avatar
    Diamantino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/04/2013

    [Resolvido]ItemsSelected Empty [Resolvido]ItemsSelected

    Mensagem  Diamantino 21/8/2015, 11:25

    Moçada, alguém aí pode me clarear as idéias sobre ( ItemsSelected ) ???
    O que faz, como e onde usar??

    Aguardo os Feras...
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1028
    Registrado : 21/01/2010

    [Resolvido]ItemsSelected Empty Re: [Resolvido]ItemsSelected

    Mensagem  Gilberto Rocha 21/8/2015, 12:01

    ItemsSelected é utilizado para saber qual a seleção de um list box por exemplo, o que o usuário selecionou.

    Dessa forma é possível filtrar com múltipla escolha.

    Dim lngContador As Long
    Dim strSQL As String, strWhere As String, strWhere2 As String, strWhere3 As String
    Dim contador As Long

    contador = 0
    For lngContador = 0 To Me.Lista.ListCount - 1
    If Me.Lista.Selected(lngContador) Then
    contador = contador + 1

    If contador = 1 Then
    strWhere2 = Me.Lista.Column(0, lngContador)
    End If

    strWhere = strWhere & "','" & Me.Lista.Column(0, lngContador)

    vEmpreendimentoNome = Me.Lista.Column(0, lngContador)

    End If
    Next

    If Me.Lista.ItemsSelected.Count = 0 Then
    'Se não tiver seleção

    ElseIf Me.Lista.ItemsSelected.Count = 1 Then
    strSQL = "SELECT * FROM tblTabela WHERE EmpreendimentoNome Like '" & strWhere2 & "'"
    Me.RecordSource = strSQL

    ElseIf Me.Lista.ItemsSelected.Count >= 2 Then
    strSQL = "SELECT * FROM tblTabela WHERE EmpreendimentoNome In ('" & strWhere & "')"
    Me.RecordSource = strSQL
    Me.contalista = "Total de " & Me.Lista.ItemsSelected.Count & " empreendimentos."
    End If

    Me.Requery
    Me.Recalc

    Algo assim, não sei se está totalmente correto pois deletei parte do código.


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR
    avatar
    Diamantino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 08/04/2013

    [Resolvido]ItemsSelected Empty Re: [Resolvido]ItemsSelected

    Mensagem  Diamantino 24/8/2015, 08:04

    Ok Professor.

    Muito obrigado pela luz.

      Data/hora atual: 26/1/2022, 20:35