More to Command Button

[fong.yang]

I'm a newbie to Access and programming.
I used the wizard to create a command button to go to next record on a
form.The following is the code:

Private Sub Command135_Click()
On Error GoTo Err_Command135_Click
DoCmd.GoToRecord , , acNext
Exit_Command135_Click:
Exit Sub
Err_Command135_Click:
MsgBox Err.Description
Resume Exit_Command135_Click

End Sub

The way it is right now the button just goes to the next record. I
want to be able to display a message" Do you want to go to next
record?" If user clicks yes then go to next record, If user click no
then stays on the same record.

[salad]

fo*******@martecgroup.com wrote:

I'm a newbie to Access and programming.
I used the wizard to create a command button to go to next record on a
form.The following is the code:

Private Sub Command135_Click()
On Error GoTo Err_Command135_Click If msgbox("Go To Next Record?",vbQuestion + vbYesNo, "Confirm GO") =
vbYes then DoCmd.GoToRecord , , acNext
Exit_Command135_Click:
Exit Sub
Err_Command135_Click:
MsgBox Err.Description
Resume Exit_Command135_Click

End Sub

The way it is right now the button just goes to the next record. I
want to be able to display a message" Do you want to go to next
record?" If user clicks yes then go to next record, If user click no
then stays on the same record.