1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:
Private Sub btnGotoPrevious_Click() ' Goes to the Previous Record DoCmd.GoToRecord , , acPrevious Exit_btnGotoPrevious_Click: Exit Sub Err_btnGotoPrevious_Click: MsgBox Err.Description Resume Exit_btnGotoPrevious_Click End Sub