Global or Public Error Trapping?

[Turbo]

I would like to insert an error trap once in a module of code to trap all errors rather than insert the trap in each sub routine. Can this be done? How?

Please advise.

Thanks,

Turbo

"There is a fine line between confidence and conceit" - Ken Mai

 

[johndweidauer]

In your code
-------------------------

on error goto errHandle:

'do junk here

errHandle:

If Err.Number <> 0 Then
    Call InsertError(Err.Number,Err.Description,Err.Source,&quot;some more junk here&quot;)
else
    exit sub
end if

----------------------
In a module:
----------------------

Public Sub InsertError(ErrNum as Integer, ErrDesc as String, ErrSource as string,AddtnlComments as string)

'do what you want in the code here

end sub