Subir bajar pot item lista con botones
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84877
Fecha de impresión: 27/Marzo/2026 a las 04:16
Tema: Subir bajar pot item lista con botones
Publicado por: rokoko
Asunto: Subir bajar pot item lista con botones
Fecha de publicación: 08/Diciembre/2019 a las 22:32
|
Buenas!!!! Que conste que lo he conseguido hacer a mi manera, pero me quedo con la duda si se puede hacer mas facil. Quiero desplazarme por la lista con dos botones, uno para subir otro para bajar. Lo he hecho asi Subir Private Sub Comando78_Click() Dim varFila As Integer varFila = Me.Lista0.ListIndex If varFila = Me.Lista0.ListCount Then Me.Lista0.Selected(Me.Lista0.ListCount) = True Else Dim varFilaBaja As Integer varFilaBaja = varFila - 1 Me.Lista0.Selected(varFilaBaja) = True End If End Sub Bajar Private Sub Comando77_Click()
Dim varFila As Integer varFila = Me.Lista0.ListIndex If varFila = 0 Then Me.Lista0.Selected(1) = True Else Dim varFilaBaja As Integer varFilaBaja = varFila + 1 Me.Lista0.Selected(varFilaBaja) = True End If End Sub |
Respuestas:
Publicado por: xavi
Fecha de publicación: 08/Diciembre/2019 a las 23:31
|
Hola, Para "bajar" por el ListBox (desde el valor 0 hasta el máximo) Me!lstDatos.Selected(Me!lstDatos.ListIndex + 1) = True Para "subir" en el ListBox (desde el máximo hasta 0) Me!lstDatos.Selected(Me!lstDatos.ListIndex - 1) = True He hecho una prueba y, si llega a cualquiera de los extremos, se queda en ellos por lo que no parece que sea necesario tanto control. Un saludo ------------- Xavi, un minyó de Terrassa http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: rokoko
Fecha de publicación: 08/Diciembre/2019 a las 23:42
Como simpre genial, mas sencillo que lo mio y mas claro....Muchas gracias Se puede cerrar Saludos
|
xavi escribió: