Ordenar Lista con Cuadro Combinado
Publicado por Angel Andrés (113 intervenciones) el 17/06/2007 17:53:35
Hola y gracias desde ya. Tengo un cuadro de lista (nombre = lstPersonas)que tiene como origen de dato una consulta, de las que trae sólo dos columnas, "Nombre y Apellido". Luego tengo un cuadro combinado (Nombre = lstOpciones), con dos opciones Nombre y Apellido. Mi intención es que el cuadro de lista se ordene dependiendo de las opciones que se indique en el cuadro combinado. Agruegué código y al ejecutar el form la lista queda en blanco. Tengo el siguiente código:
Private Sub lstOpciones_BeforeUpdate(Cancel As Integer)
Dim ordenado As String
Dim MiSql As String
MiSql = "SELECT [id_Persona], [Nombre], [Apellido] FROM Personas"
Select Case lstOpciones
Case "Por Nombre"
ordenado = "ORDER BY Nombre;"
Case "Por Apellido"
ordenado = "ORDER BY Apellido;"
End Select
lstPersonas.RowSource = MiSql & ordenado
lstPersonas.Requery
End Sub
Mi problema es que al seleccionar una de las opciones del cuadro combinado la lista queda en blanco. Espero que alguien me ayude a solucionarlo. Gracias.
Private Sub lstOpciones_BeforeUpdate(Cancel As Integer)
Dim ordenado As String
Dim MiSql As String
MiSql = "SELECT [id_Persona], [Nombre], [Apellido] FROM Personas"
Select Case lstOpciones
Case "Por Nombre"
ordenado = "ORDER BY Nombre;"
Case "Por Apellido"
ordenado = "ORDER BY Apellido;"
End Select
lstPersonas.RowSource = MiSql & ordenado
lstPersonas.Requery
End Sub
Mi problema es que al seleccionar una de las opciones del cuadro combinado la lista queda en blanco. Espero que alguien me ayude a solucionarlo. Gracias.
Valora esta pregunta


0