'Label Not Defined' on error handling procedure 1

[bigchuck]

When I run the following code I get a 'Compile Error: Label not found' on the second line:
Private Sub Command68_Click()
'The following line is where the code errors out
On Error GoTo Err_Command68_click

FollowHyperlink Outage_Log

exit_Command68_Click:
DoCmd.CancelEvent
End Sub

Err_Command68:
Select Case Err.Number
Case 490
MsgBox "The requested document does not exist.", , "Message"
Case Else
MsgBox Err.Number & ": " & Err.Description
End Select
Resume exit_Command68_Click
End Sub

I would appreciate any help.

Thanks,
BigChuck

 

[checkOut]

Maybe u use a lable to make the hyperlink visible than u need to set Outage_log.caption

else, i have no Idea, but maybe u can tell the format of outage_log, is it a field in a table, an unbound field, or what?

Gerard

 

[bigchuck]

It is a text control bound to a field with a hyperlink data type. However, when I go to debug it, the line with the text 'on error goto err_command68_click' is highlighted. I have used this syntax alot of times for error handling without any problems.

 

[mikevh]

Your code says "On Error GoTo Err_Command68_click",
but there's no label named "Err_Command68_click".
The label on your error-handling code is "Err_Command68".
Change it to "On Error GoTo Err_Command68".

 

[bigchuck]

Oops...that was just a typo. In the actual code it is correct and it still errors out.

 

[mikevh]

In the code that says

exit_Command68_Click:
DoCmd.CancelEvent
End Sub

I believe you need "Exit Sub", not "End Sub". The
reason you're getting 'Label not found' on the second line
is 'cause the compiler doesn't see the rest of the routine
after the "End Sub". It thinks your subroutine ends at
that point, so it isn't reading far enough to see the label
you're referring to.

 

[bigchuck]

Thanks alot, mikevh. That was the problem. I just tripped over that even though I looked at it a million times.

 

[mikevh]

How many times have we all done stuff like that?
Sometimes it just takes another set of eyes.
Glad to help out.