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