[Resolvido]Filtro usando Caixa de Seleção

Amigos, mais uma vez cá estou eu.

É o seguinte, eu estou querendo montar uma consulta que filtre utilizando os campos marcados de uma caixa de seleção, do tipo.

[x] 001
[x] 013
[x] 023
[ ] 003
[ ] 022
[ ] 043

Aparecer na consulta somentes o campos marcados no CS ou apenas um dos marcados.

Conto com Todos.

Abraços.

Darei um norte para que possa iniciar isto..

Criaria uma variável nas declarações do Módulo do Formulário

Dim StrCod as String

No evento após atualizar de cada caixa levar a esta variável o valor.. que será concatenado com o valor anterior que ela contiver, algo assim

StrCod = StrCod  & "','" &  Me.caixaSel

Assim a variável StrCod assumiria os valores selecionados separando-os com uma vírgula Ex: 001,002,003



Estando os devidos valores já inseridos na variável cria-se uma Sql baseada na tabela utilizando o operador IN

 StrSQL = "SELECT Lançamentos.Ordenar, Lançamentos.LN, Lançamentos.Data, Lançamentos.Conta, Lançamentos.[Data Valor]," _
        & "Lançamentos.Movimentos, Lançamentos.Ref, Lançamentos.Entidade, Lançamentos.Doc, Lançamentos.Débito, Lançamentos.Crédito," _
        & "Lançamentos.Observações, Lançamentos.Reconciliado, Lançamentos.[Pré Datado], Lançamentos.Valor" _
        & " FROM Lançamentos WHERE  Ref In (" & StrCod & ")"

Em seguida pode utilizar esta Sql para carregar uma listBox, subform etc.

Cumprimentos.