yvErrorHandler - universal error handling and logging

Access XP, 2000, 97, ...; VB 6, 5, ...

Download yvErrorHandler v.1.12, (36129 bytes):

yvErrorHandler features

Universal error handling and logging for all types of errors/warnings.
Just insert call to one of ShowError... functions in your (error handling) code
Tries to find all errors:
it may report more, than one error per call to help you find 'real' cause of problem
Knows, that there are "custom errors"
(If Err.Number > vbObjectError And Err.Number < vbObjectError + 65536 )
Formatting errors for Plain text, HTML and XML clients (see clientContentType function)
Trace helper fuctions: TraceStart, TraceEnd and MyTrace
Works well for unattended applications (e.g. server components)
The same source code for MS Access 97 ... 2002 and VB5 ... 6
Adapted for convertion to the VB.NET
Source code included
Freeware

yvErrorHandler.bas module has quite a lot of external dependencies. So it is distributed as a part of complete VB application, that you may use as a template.

Example of yvErrorHandler usage

Const conModuleName = "frmMain"

' ...

Private Sub cmdAdoError_Click()
Const conModuleSubName = conModuleName & ":" & "cmdAdoError_Click"
Dim strSql As String
Dim strDescr As String
Dim RecordsAffected As Long
  On Error GoTo ErrProc
  
  strDescr = "Trying to update sometable..."
  strSql = "Update Sometable Set Column1='www'"
  AppGlobals.cnn1.Execute strSql, RecordsAffected, adCmdText
  
ExitProc:
  On Error Resume Next
  Exit Sub
  
ErrProc:
  'This is a call to yvErrorHandler
  ShowErrorSql conModuleSubName, strSql, strDescr
  Resume ExitProc
End Sub

You may find additional examples in the sample application, included in yvErrorHander distribution package.

Author: Yuri Volkov
Last changed: 2003-10-06