FIRST,NEXT,PREVIOUS,LAST

Private Sub cmd_first_Click()
On Error GoTo Err_cmd_first_Click
DoCmd.GoToRecord , , acFirst
MsgBox "Sudah Mentok", 64, "Bahaya"
Exit_cmd_first_Click:
Exit Sub
Err_cmd_first_Click:
Resume Exit_cmd_first_Click
End Sub

Private Sub cmd_prev_Click()
On Error GoTo Err_cmd_prev_Click
DoCmd.GoToRecord , , acPrevious
Exit_cmd_prev_Click:
Exit Sub
Err_cmd_prev_Click:
MsgBox "Sudah Mentok", 64, "Bahaya"
Resume Exit_cmd_prev_Click
End Sub
Private Sub cmd_next_Click()
On Error GoTo Err_cmd_next_Click
Me.AllowAdditions = False
DoCmd.GoToRecord , , acNext
Exit_cmd_next_Click:
Exit Sub
Err_cmd_next_Click:
MsgBox "Sudah Mentok", 64, "Bahaya"
Resume Exit_cmd_next_Click
End Sub
Private Sub cmd_last_Click()
On Error GoTo Err_cmd_last_Click
DoCmd.GoToRecord , , acLast
MsgBox "Sudah Mentok", 64, "Bahaya"
Exit_cmd_last_Click:
Exit Sub
Err_cmd_last_Click:Resume Exit_cmd_last_Click
End Sub