Dick7Access
Dick S
- Local time
- Today, 16:20
- Joined
- Jun 9, 2009
- Messages
- 4,340
Where do I change the name if the messge box?
Private Sub cmdNext_Click()
On Error GoTo Err_Handler
DoCmd.GoToRecord , , acNext
Command148_Exit:
Exit Sub
Err_Handler:
If Err.Number = 2105 Then
MsgBox "You have already reached the last Tribe record."
Else
MsgBox Err.Description, vbExclamation, "Error #: " & Err.Number
End If
Resume Command148_Exit
End Sub
Private Sub cmdNext_Click()
On Error GoTo Err_Handler
DoCmd.GoToRecord , , acNext
Command148_Exit:
Exit Sub
Err_Handler:
If Err.Number = 2105 Then
MsgBox "You have already reached the last Tribe record."
Else
MsgBox Err.Description, vbExclamation, "Error #: " & Err.Number
End If
Resume Command148_Exit
End Sub