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