Filtrar un cuadro de lista por medio de un cuadro combinado

[Carlos Balbi]

Buenas. Soy novato en esto, pero quiero realizar esto (a ver si me hago entender):
Tengo una tabla con un campo con lista de valores múltiples, y quisiera que en un formulario, que posee un cuadro combinado - con los mismos valores - y un cuadro de lista, al seleccionar un elemento del cuadro combinado, automáticamente me filtre el cuadro de lista.

Estuve probando con esto, pero no me funciona:
Private Sub combo_AfterUpdate()
If IsNull(combo.Value) Or combo.Value = "" Then
lst_lista.RowSource = "Select Campo1, Campo2 from Tabla"
Else
lst_lista.RowSource = "Select Campo1, Campo2 from Tabla like '*" & combo.Column(0) & "*'"
Exit Sub
End If
End Sub

Gracias de antemano. Saludos

[juanfran]

Se hace como si fueran combos en cascada. En la consulta origen del cuadro de lista tienes que filtrar por el combo (en el campo correspondiente). Luego en el afterupdate del combo le haces requery al cuadro de lista.

Es lo mismo que explican en esta web, aunque en tu caso el segundo control sea cuadro de lista: http://nubededatos.blogspot.com.es/2013/11/cuadros-combinados-en-cascada-en-ms.html

Post by Carlos Balbi
Tengo una tabla con un campo con lista de valores múltiples, y quisiera que en un formulario, que posee un cuadro combinado - con los mismos valores - y un cuadro de lista, al seleccionar un elemento del cuadro combinado, automáticamente me filtre el cuadro de lista.
Private Sub combo_AfterUpdate()
If IsNull(combo.Value) Or combo.Value = "" Then
lst_lista.RowSource = "Select Campo1, Campo2 from Tabla"
Else
lst_lista.RowSource = "Select Campo1, Campo2 from Tabla like '*" & combo.Column(0) & "*'"
Exit Sub
End If
End Sub
Gracias de antemano. Saludos

[ikanni]

Prueba asi: Siempre y cuando el combo.Column(0) sea texto y la tabla 'Tabla' tenga el campo combo.Column(0)

Private Sub combo_AfterUpdate()
If IsNull(combo.Value) Or combo.Value = "" Then
lst_lista.RowSource = "Select Campo1, Campo2 from Tabla"
Else
lst_lista.RowSource = "Select Campo1, Campo2 from Tabla Where '" & combo.Column(0) & "'"
Exit Sub
End If
End Sub