MovePrevious (Visual Basic)

[perezgladys28]

Private Sub primereg_Click() // ir al primer registro
If tcheque.EOF Then // tcheque es el recordset
MsgBox "No hay registros en la base de datos", vbExclamation, "Aviso"
Else
tcheque.MoveFirst // c va al primer registro
mostrar //procedimiento q muestra los datos
End If
End Sub

' *** PROCEDIMIENTO IR AL ANTERIOR REGISTRO ***
Private Sub anterior_Click()
If Not tcheque.BOF Then //anterior registro
tcheque.MovePrevious
If tcheque.BOF Then tcheque.MoveNext
mostrar
End If
End Sub

' *** PROCEDIMIENTO IR AL SIGUIENTE REGISTRO ***
Private Sub siguiente_Click()
If Not tcheque.EOF Then
tcheque.MoveNext
If tcheque.EOF Then tcheque.MovePrevious
mostrar
End If
End Sub

' *** PROCEDIMIENTO IR AL ULTIMO REGISTRO DE LA B.D.***
Private Sub ultreg_Click()
If tcheque.EOF Then
MsgBox "No hay registros en la base de datos", vbExclamation, "Aviso"
Else
tcheque.MoveLast
mostrar
End If
End Sub

espero q t sirva.. saludos