FredixBlog


Just my log about anything I could find enjoyable.



On Error code

author Posted by: fredometro on date Jan 1st, 2004 | filed Filed under: MS-Access

A nice error handling routine.
FunctionName_Error:
   Select Case Err
       Case Else
            Select Case MsgBox(”An unexpected error has occoured in FunctionName”, vbCritical + vbAbortRetryIgnore)
                 Case vbRetry: Resume
                 Case vbIgnore: Resume Next
                 Case vbAbort: Resume FunctionName_Exit
   End Select