Procurei ajuda em outros Fóruns, mas não tive retorno, talvez vocês possam me ajudar.
Gostaria de saber como usar como critério de consulta os valores multiplos da listbox.
Pesquisei e vi que o valor da listbox precisa estar dentro de uma caixa de texto como string.
Então criei uma caixa de texto e coloquei no evento "Ao atualizar" o código abaixo:
Sendo:
SELECT_FINALIZACOES = ListBox
FILTRO = Caixa de texto
Código: Selecionar todos
Private Sub SELECT_FINALIZACOES_AfterUpdate()
Dim ctl As Control, lngContador As Long
Dim strSQL As String, strWhere As String
Set ctl = SELECT_FINALIZACOES
strWhere = ""
For lngContador = 0 To ctl.ListCount - 1
If ctl.Selected(lngContador) Then
strWhere = strWhere & " ; " & ctl.Column(0, lngContador)
End If
Next
strWhere = Mid(strWhere, 4)
If ctl.ItemsSelected.Count = 0 Then
Me.FILTRO.Visible = False
Me.FILTRO.Value = ""
ElseIf ctl.ItemsSelected.Count > 0 Then
Me.FILTRO.Value = strWhere
Me.FILTRO.Visible = False
Anexo um exemplo do meu BD.
Obrigado