Is this Command wrong!

[Bob]

Should the Err_Command336 be Err_Command17 ???
Thanks for your help....Bob

Private Sub Command17_Click()
On Error GoTo Err_Command336_Click

Dim stDocName As String
If Me.Dirty Then Me.Dirty = False
stDocName = "rptCb7"
DoCmd.OpenReport stDocName, acPreview

Exit_Command336_Click:
Exit Sub

Err_Command336_Click:
MsgBox Err.Description
Resume Exit_Command336_Click

End Sub

 

[Allen Browne]

It's fine.

It just need to be a unique label in the procedure, so you can use:
On Error GoTo BobsError
...
BobsError:
MsgBox ...

Long ago, in the Access 1 and 2 days, the label had to be unique across the
procedures, but that has not been an issue for the last 12 years.