Label Not Defined

[Guest]

I have been looking through previous links but still fail to find anything to
help with this error. I am getting a label not defined error on the 2nd
line. All the posts I have been reading deal with errors further down the
syntex.


Private Sub rptalphabtn_Click()
On Error GoTo Err_rptalphabtn_Click

Dim stDocName As String

stDocName = "Alpha Roster (By Dept)"
DoCmd.OpenReport stDocName, acPreview

Exit_rptalphabtn_Click:
Exit Sub

Err_rptbirthdaybtn_Click:
MsgBox Err.Description
Resume Exit_rptalphabtn_Click

End Sub

 

[George Nicholson]

On Error GoTo Err_rptalphabtn_Click
......

Err_rptbirthdaybtn_Click:

Err_rptalphabtn_Click doesn't exist but
Err_rptbirthdaybtn_Click does, that's why you get the error.

Change either the label or the GoTo so that they match.

I'd change the label to
Err_rptalphabtn_Click:

HTH

 

[Guest]

The On Error is incorrect

Private Sub rptalphabtn_Click()
' On Error GoTo Err_rptalphabtn_Click - ***** it doesn't exist *****

' Should be
On Error GoTo Err_rptbirthdaybtn_Click

Dim stDocName As String

stDocName = "Alpha Roster (By Dept)"
DoCmd.OpenReport stDocName, acPreview

Exit_rptalphabtn_Click:
Exit Sub

Err_rptbirthdaybtn_Click:
MsgBox Err.Description
Resume Exit_rptalphabtn_Click

End Sub

 

[Guest]

Thanks you both. After 8 hours of looking at the screen I just kept missing
it.