I'm using an Access 2000 (ADP) project, and I'm trying to create a global error handler without having to to do the following in each Sub and Function:

On Error GoTo Error_Handler_1

'Code here


:Exit_1
exit sub


:Error_Handler_1
Call Handle_Error
Goto Exit_1

Public Sub Handle_Error()
msgbox "An error has just occured"
end Sub

Anybody know how to do this?