[Resolvido]Caixa Listagem com Selecção de Vários Items

Boa tarde

Tenho uma caixa de listagem alimentada por uma tabela aonde posso seleccionar mais que um item dos que ela contiver.
Eu queria que ao seleccionar mais que um item eles fossem impressos num relatório.


O Campo da Caixa de Selecção é um campo "Texto".
Obrigado

Assis
Experimente assim:


tente utilizar o ListCount.. mais ou menos assim

For i = 1 to Me.Lista0.ListCount - 1
Me.Lista0.Selected(i) = True
ss = ss & ", " & Me.Lista0.ItemData(i)
Next

List Count -1 porque se for 0 salta o primeiro item lista

Espero ter ajudado

Resolvido Assim:
Dim varItem As Variant, strList As String
With Me.SuaCaixaDeListagem
If .ItemsSelected.Count = 0 Then 'conta se há pelo menos 1 selecionado
MsgBox "Selecione ao menos um Tipo de Produtos " & Chr(13) & "E Um Tipo de Linha!", vbExclamation, "Aviso"
GoSub sai
Else
For Each varItem In .ItemsSelected
If strList = "" Then ' 1º laço do Loop
strList = "SuaCaixaDeListagem = '" & .Column(0, varItem) & "'"
Else
strList = strList & " OR SuaCaixaDeListagem = '" & .Column(0, varItem) & "'"
End If
Next varItem
End If
End With
On Error GoTo sai
DoCmd.OpenReport "NomeDoRelatorio", acViewPreview, , WhereCondition:=strList
DoCmd.SelectObject acReport, "NomeDoRelatorio", False


End If
Else
Me.SuaCaixaDeListagem.SetFocus

End If

Anda bem que resoveu o seu problema e fez retorno no Forum

Obrigado e bom trabalho