[Resolvido]Origem de uma ListBox baseado numa seleção múltipla de outra ListBox

Estava estudando o Maestro do Avelino
e queria fazer uma ListBox ListaCodProduto mostrar apenas os itens selecionados na ListaSubCategoria.

Ou seja, eu queria que a Origem da Linha de ListaCodProduto fosse igual a apenas alguns dos itens que eu selecionasse (seleção múltipla) em ListaSubCategoria.

Eu tentei, mas sem sucesso:

Código:

Private Sub ListaSubcategoria_Click()

    Dim mysql As String
   
    Dim filtro As String
    Dim Sel As Variant
    Dim j As Boolean

    filtro = "in("
    For Each Sel In Me!ListaSubcategoria.ItemsSelected
        filtro = filtro & Me!ListaSubcategoria.Column(0, Sel) & ","
        j = True
    Next
   
    filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
    filtro = "IDProduto OR " & filtro

    mysql = "SELECT IDProduto, CodProduto FROM Produtos" _
        & " WHERE (((Subcategoria) = " & filtro & "))" _
        & " ORDER BY CodProduto;"
       
    Me.ListaCodProduto = Null
    Me.ListaCodProduto.RowSource = mysql

End Sub


Talvez fosse o caso de você limpar a segunda lista a cada vez que selecionar uma linha da primeira e então definir com todas linhas selecionadas da primeira. Algo assim no evento "Ao clicar" ou "Ao alterar" da primeira listbox:

Me.SegundaListbox.RowSource = ""

Percorre as linhas da primeira listbox e vai adicionando as linhas selecionadas na segunda listbox com o AddItem

Ola criquio, tanto com

Código:

Me.ListaCodProduto = Null

como com

Código:

Me.ListaCodProduto.RowSource = ""

dá certo.

Acho que o problema está na montagem do filtro, como te falei, é uma adaptação de um código do Avelino, mas eu sei que para montar um filtro no SQL eu deveria usar algo como

Código:

WHERE (((Subcategoria) = 1 OR 2))

por exemplo, mas eu não entendo direito como montar esse código junto com a variável 'filtro'.

Aceito outra forma também.

Se você só precisa adicionar os itens à segunda listbox, pode fazer algo assim no evento "Após atualizar" da primeira listbox:

Código:

Dim L As Variant

Me.Listbox2.RowSourceType = "Value List"
Me.Listbox2.RowSource = ""

For Each L In Me.Listbox1.ItemsSelected
    Me.Listbox2.AddItem Me.Listbox1.ItemData(L)
Next N

Quase, mas ainda não.
Eu queria filtrar os itens da primeira e retornar na segunda com seleção multipla, mas não deu ainda.

Ah, detalhe: na segunda são produtos de cada categoria do primeiro, ou seja, é filtrado por categoria.

Grande Avelino, tentei

Código:

Private Sub ListaSubcategoria_Click()

    Dim j As Boolean
   

    filtro = "(IDSubcategoria)="
    For Each Sel In Me!ListaSubcategoria.ItemsSelected
        filtro = filtro & Me!ListaSubcategoria.Column(0, Sel) & " OR "
        j = True
    Next
   
    filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
    filtro = "IDProduto " & filtro
   
    mysql = "SELECT IDProduto, CodProduto FROM Produtos" _
        & " WHERE ((" & filtro & "))" _
        & " ORDER BY CodProduto;"
       
    Me.ListaCodProduto = ""
    Me.ListaCodProduto.RowSource = mysql

End Sub

Mas nada ainda.

Consegui:

Código:

Private Sub ListaSubcategoria_Click()

    Dim i As Variant, sql As String

    For Each i In Me.ListaSubcategoria.ItemsSelected
        sql = sql & " OR IDSubcategoria = " & Me.ListaSubcategoria.ItemData(i) & ""
    Next

    sql = "SELECT * FROM Produtos WHERE " & Mid(sql, 5)

    Me.ListaCodProduto.RowSource = sql
   
End Sub


Obrigado a todos.

Ah tá. Agora que entendi exatamente o que queria. É algo semelhante à dica que dei na mensagem n° 15 desse tópico.

... é... esqueci de usar a busca, foi mal. Mas valeu a dica.