Error Handling for newbie

[smikkelsen]

I am having a hard time with this.

I am trying to simply get SOMETHING to happen when a runtime error occurs.

I have the following code that sends an email in vba:

 
Private Sub EmailBrenda_Click()
Dim strMsgTxt As String
strMsgTxt = "body text"
DoCmd.SendObject acSendNoObject, , , "test@test.com", , , "subject", strMsgTxt, True
On Error GoTo Err_EmailBrenda_Click
 

 
 
Exit_EmailBrenda_Click:
    Exit Sub
Err_EmailBrenda_Click:
    If Err.Number = "2501" Then
        MsgBox "Cancelled"
    Else: MsgBox "Err.Description"
        End If
    
    
    Resume Exit_EmailBrenda_Click

This should show a message box "instead of a runtime error" that says the message was canceled. I can't get the error handler to do anything. I have tried just a simple msgbox instead of all the if err.number etc. but not even that is getting picked up. Is the onerror wrong? why wont this work?



Thanks

[pbaldy]

I think the problem is here (the error is numeric):

If Err.Number = 2501 Then

Here's a primer:

http://www.baldyweb.com/ErrorTrap.htm

[smikkelsen]

oops, I actually originally had it numeric, but forgot to change it back before pasting the code in here. I just thought it was worth a shot to try with quotes.

Thanks for the reply. Any other problems you see in there?

[pbaldy]

Actually yes, I didn't notice this earlier. The "On Error" line should be above your code. Typically it appears immediately after the declarations ("Dim...").

[TheShabz]

yep, I also think its the placement of the On Error. If I'm not mistaken, it will only apply to errors that occur AFTER the On Error. Put it before the actions and see if it works.