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

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

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




ok amigo