Move To PreviousRecord
acCmdRecordsGoToPrevious
This code moves the cursor to the previous record. It is designed to run behind a button called cmdPrevious.
'***************** Code Start *******************
' This code was originally written by Terry Wickenden.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
Private Sub cmdPrevious_Click()
On Error GoTo ErrPrevious
DoCmd.RunCommand acCmdRecordsGoToPrevious
Exit Sub
ErrPrevious:
Select Case Err
Case 2046
'Command not available
MsgBox "You cannot goto the previous record as you are on the first record.", _
vbInformation, "Not Available"
Case Else
MsgBox Err.Number & ":-" & vbCrLf & Err.Description
End Select
End Sub
'****************** Code End ********************