** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Subir bajar pot item lista con botones
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoSubir bajar pot item lista con botones

 Responder Responder
Autor
Mensaje
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Tema: Subir bajar pot item lista con botones
    Enviado: 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
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14720
Enlace directo a este mensaje Enviado: 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

Mi web
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 08/Diciembre/2019 a las 23:42
Publicado originalmente por xavi xavi escribió:

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


Como simpre genial, mas sencillo que lo mio y mas claro....Muchas gracias

Se puede cerrar

Saludos
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable