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.