[Resolvido]ItemsSelected

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

Aguardo os Feras...

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.

Ok Professor.

Muito obrigado pela luz.