Botones para moverse entre registros de un Listbox Ms Access VBA
Tengo un formulario con un listbox que contiene varios registros de una tabla y estoy intentando moverme entre registros con el siguiente código:
'Botón Arriba
Private Sub cmdListaUp_Click()
Me.Lista7 = Me.Lista7.ItemData(Me.Lista7.ListIndex - 1)
End Sub
'Botón Abajo
Private Sub cmdListaDown_Click()
If Me.Lista7.ListIndex = Me.Lista7.ListCount - 1 Then
Me.Lista7 = Me.Lista7.ListCount
Else
Me.Lista7 = Me.Lista7.ItemData(Me.Lista7.ListIndex + 1)
End If
End Sub
Sin embargo, en un formulario me funciona perfecto y en otros no, ya que en vez de correr un solo registro como lo hace en el otro formulario, corre de tres en tres y eso no me sirve.. ¿alguien sabe a qué se debe este inconveniente?
Nota. La estructura es exactamente la misma, en ambos formularios, el tipo de dato del listbox es el mismo, así que no encuentro razón lógica para que no funcione.
1 respuesta
Alexis: La verdad es que aparentemente el código está bien, en cambio en alguna ocasión yo he utilizado:
'Botón Arriba
Private Sub cmdListaUp_Click()
Me.Lista7.Selected(Lista7.ListIndex+2) = True
End Sub
'Botón Abajo
Private Sub cmdListaDown_Click()
Me.Lista7.Selected(Lista7.ListIndex - 0) = True
End Sub
Pruébalo y me comentas. Saludos >> Jacinto
