Tudo está funcionando perfeitamente bem no meu modelo de cadastro, contudo gostaria de usar 2 caixas multiseletcs (igual do campo "cidade" já existente, onde você vai selecionando várias opções) para aplicar o filtro sobre filtro, porém não está funcionando simultaneamente.
No código, a parte responsável por aplicar o filtro da listbox + os demais campos é o seguinte:
...
Código: Selecionar todos
For i = 1 To lstTIPO_SITUACAO.ListCount
'verifica se o item está selecionado
If lstTIPO_SITUACAO.Selected(i - 1) Then
'Monta a cláusula WHERE com OR
Debug.Print lstTIPO_SITUACAO.List(i - 1) & "selecionado"
If sqlWhere <> vbNullString Then
sqlWhere = sqlWhere & "or"
End If
sqlWhere = sqlWhere & " UCASE(TIPO_SITUAÇÃO) LIKE UCASE('%" & Trim(lstTIPO_SITUACAO.List(i - 1)) & "%')"
End If
Next
Call MontaClausulaWhere(txtUF_FILTRO.Name, "UF", sqlWhere)
Call MontaClausulaWhere(txtRESUMO_DA_SITUAÇÃO_FILTRO.Name, "RESUMO_DA_SITUAÇÃO", sqlWhere)
Call MontaClausulaWhere(txtUNIDADE_FILTRO.Name, "UNIDADE", sqlWhere)
....
Desde já agradeço a todos!