Cuadro Combinado que filtre lista despelgable
Tal vez me puedas ayudar con esta duda, no se si se pueda hacer esto.
Tengo un cuadro combinano que viene de una tabla "Productos"
Origen: Select Producto.idProducto, Producto.Nombre From Producto;
En las propiedades del combox: Limitar Lista = si, Expansión automatica = si
Cuando se despliega la lista del cuadro combinado y uno introduce caracteres, en el cuadro van apareciendo de forma automática, los nombres que coinciden con los carcteres que no va escribiendo.
Me pregunto si es posible que en la lista desplegada del cmobox solo se muestren solamente los registros que coincidan con el texto que se introduce en el.
Ejemplo:
Combox:
Lista:
Tapa Azul
Envase azul
Tapa roja
Envase Rojo
Ahora yo quisiera que si introduzco en el combox por ejemplo.
Combox: Env
Lista: (solo se muestren)
Envase Azul
Envase Rojo
Bueno espero haberme explicado
Tengo un cuadro combinano que viene de una tabla "Productos"
Origen: Select Producto.idProducto, Producto.Nombre From Producto;
En las propiedades del combox: Limitar Lista = si, Expansión automatica = si
Cuando se despliega la lista del cuadro combinado y uno introduce caracteres, en el cuadro van apareciendo de forma automática, los nombres que coinciden con los carcteres que no va escribiendo.
Me pregunto si es posible que en la lista desplegada del cmobox solo se muestren solamente los registros que coincidan con el texto que se introduce en el.
Ejemplo:
Combox:
Lista:
Tapa Azul
Envase azul
Tapa roja
Envase Rojo
Ahora yo quisiera que si introduzco en el combox por ejemplo.
Combox: Env
Lista: (solo se muestren)
Envase Azul
Envase Rojo
Bueno espero haberme explicado
2 Respuestas
Respuesta de luis45ccs
1
La idea es que cambies el rowsource según cada tecla como ejemplo pongo es campo descripción
Private Sub Descripción_KeyPress(KeyAscii As Integer)
On Error Resume Next
c1$ = Chr(KeyAscii)
s = Descripción.SelStart
If KeyAscii = 8 Then c1$ = "": If s > 0 Then s = s - 1
If KeyAscii = 27 Then Exit Sub
If KeyAscii < 32 Or KeyAscii > Asc("z") Then c1$ = ""
w$ = "WHERE Descripción LIKE '*" & nz(Left(Descripción.Text, s)) & c1$ & "*'"
Descripción.RowSource = "SELECT Descripción, Inventario.Código from productos WHERE Descripción LIKE '*" & nz(Left(Descripción.Text, s)) & c1$ & "*'" & " ORDER BY Descripción;"
If Descripción.ListCount > 0 Then Descripción.Dropdown
End Sub
Private Sub Descripción_KeyPress(KeyAscii As Integer)
On Error Resume Next
c1$ = Chr(KeyAscii)
s = Descripción.SelStart
If KeyAscii = 8 Then c1$ = "": If s > 0 Then s = s - 1
If KeyAscii = 27 Then Exit Sub
If KeyAscii < 32 Or KeyAscii > Asc("z") Then c1$ = ""
w$ = "WHERE Descripción LIKE '*" & nz(Left(Descripción.Text, s)) & c1$ & "*'"
Descripción.RowSource = "SELECT Descripción, Inventario.Código from productos WHERE Descripción LIKE '*" & nz(Left(Descripción.Text, s)) & c1$ & "*'" & " ORDER BY Descripción;"
If Descripción.ListCount > 0 Then Descripción.Dropdown
End Sub
Respuesta de tnathos
1
Mmmm pues yo hago eso pero lo hago mediante ajax.. es decir a medida que el usuario escribe va a la base de datos y va consultando un campo con yn parámetro usando un like... sobre el combox directamente creo no se puede hacer entonces te tocaría con ajax.
Busca en google ajax autocomplete.
Busca en google ajax autocomplete.