Microsoft Access, Office/VBA, VB6 Modules royalty-free source code library

Microsoft Access Modules royalty-free source code library

Microsoft Access VBA and VB6 Module Library

Free trial of Total Visual SourceBook for Microsoft Access, Office, VB6 and VBA

Module: ErrorHandlerAccess in Category Error Handling : VBA from Total Visual SourceBook

Global error handler for Microsoft Access VBA. Added to every procedure, these routines will trap, document, email, and gracefully exit your application when unexpected errors occur.

A global error handler will help you improve the quality of your application by providing developers with the information necessary to diagnose problems and minimize the need for users to report crashes. The primary procedures for this module are CallStackAdd, CallStackRemove, and GlobalErrorHandler.

For more information on error handling, read our technical paper on Error Handling and Debugging Tips and Techniques for Microsoft Access, VBA, and VB6. See the declarations section for how to set the Total Visual SourceBook error handling options with this module.

If line numbers are added to your VBA code, the error handler will document the line number where the crash occurs. Use the Code Delivery feature of Total Visual CodeTools to add line numbers to your code.

Procedure List

Procedure Name	Type	Description
(Declarations)	Declarations	Declarations and private variables for the modErrorHandlerAccess module.
ErrorHandlerInitialize	Procedure	Initialize error handling routines by resetting the procedure call stack. Call this routine at the start of your program.
ErrorHandlerEmail	Procedure	Set email settings if you want errors to be emailed. If these are not set, email is not sent.
CreateErrorTable	Procedure	Create a table in the current database with the structure to save error logs. This presumes the database is not an ADP. This procedure should be deleted when used in an ADP which doesn't support DAO. This should be called during development so your database already contains this table. Do not create the table each time you initialize the error handler. In a split database environment, this table should reside in the backend database and linked by the front-end database so that the errors encountered by all users are saved in one table. For more information, visit Microsoft Access Split Database Architecture to Support Multiuser Environments, Improve Performance and Simplify Maintainability.
CallStackAdd	Procedure	Adds the supplied procedure name to error handler's procedure call stack. This allows the error handler to report the series of procedures called when a crash occurs which can significantly simplify fixing the problem. Call this method at the beginning of a procedure. It must be balanced by a call to the CallStackRemove method which is called when the procedure exits normally.
CallStackRemove	Procedure	Move the current pointer to the previous item on the procedure call stack. The existing procedure name remains on the stack so you can see what was previously called.
GetArraySize	Procedure	Get the size of an array and trap for situations where the array is not defined.
GlobalErrorHandler	Procedure	Global error handler. This procedure is called when an unexpected error occurs. Based on the settings when ErrorHandlerInitialize was called, the error handler will generate an error log file with options to email and save it to a table.
CreateErrorLog	Procedure	Generate the error log text.
GetAccessServicePack	Procedure	Get the actual Access SP version name from the build number.
GetProcedureCallStack	Procedure	Create a list of procedure calls with the current procedure highlighted.
GetLibraryReferences	Procedure	Create a list of library references.
GetNextErrorFileName	Procedure	Determine the file name to store the error log with support for the option to overwrite or create a new file name.
FileExists	Procedure	Determine if a file name exists (returns TRUE if the file is a folder which exists).
DeleteFile	Procedure	Delete the named file, handling errors if the file does not exist.
CreateTextFile	Procedure	Create (save) a file containing the text. Deletes the file if it exists.
WindowsVersionString	Procedure	Get the Windows version as a string with major and minor build plus 32 or 64 bitness (e.g. "Windows 8 v.6.2, 64-bit" or "Windows 7 v.6.1, 32-bit").
ShowFile	Procedure	Open the error file (assumes a default program will open it based on its extension).

Example Code for Using Module: ErrorHandlerAccess

' Example of using the module modErrorHandlerAccess for a global error handler of your Microsoft Access VBA applications
'
' To use this example, create a new module and paste this code into it.
' Then run the procedure by putting the cursor in the procedure and pressing:
'    F5 to run it, or
'    F8 to step through it line-by-line (see the Debug menu for more options)

Public Sub Example_modErrorHandlerAccess()
  ' Comments: Examples of how this error handler can be applied to each procedure to catch unexpected errors

  ' Table to store the error log.
  Const cstrErrorTable As String = "tblErrorLog"

  ' To save error logs into a table, the table needs to be created in advance. It should not be created every time your database runs.
  ' In a split database architecture, the table should be stored in the backend database and linked by the front-end applications.
  ' For more information on split database architecture, visit: http://www.fmsinc.com/microsoftaccess/databasesplitter/
  ' Run this procedure to create the table:
  '
  ' CreateErrorTable cstrErrorTable

  ' Initialize the error handler.  This should be done when your application starts.
  ' Specify the name of your application, any extra information you'd like added to the error log,
  ' the name of the error log text file to create, whether you want it to be overwritten, a form to appear, and a table to store the data
  Call ErrorHandlerInitialize("My Database Name", "", "ErrorLog.txt", True, True, "", cstrErrorTable)

  ' Set email options so the error log is emailed to you. Replace the email address with your own. You can also add CC, BCC and specify the subject.
  'Call ErrorHandlerEmail("Me@MyDomain.com")

  MySampleCode

End Sub

Private Sub MySampleCode()
  ' Comments: Standard error handling style used for all your procedures

  ' This puts the name of the procedure "MySampleCode" in the error handler's procedure call stack
  CallStackAdd "MySampleCode"

  ' This enables the error handler if gcfHandleErrors is True.
  ' Set it to False during development and debugging so that the error handler isn't triggered and crashes stop at the offending line
  If gcfHandleErrors Then On Error GoTo PROC_ERR

  ' Add your code here. In this example, we simply call the next procedure to build our chain of procedure calls to populate the call stack.
  '
  ' The critical requirement of the error handler is to always leave the procedure at the bottom where CallStackRemove in invoked to track we've left this procedure.
  ' Do not use "Exit Sub" or "Exit Function" in the middle of your code.

  FirstCall

PROC_EXIT:
  CallStackRemove
  Exit Sub

PROC_ERR:
  GlobalErrorHandler
  GoTo PROC_EXIT
End Sub

Private Sub FirstCall()
  ' Comments: Example of the standard error handling structure without the comments of the previous procedure

  CallStackAdd "FirstCall"
  If gcfHandleErrors Then On Error GoTo PROC_ERR

  Call SecondCall

PROC_EXIT:
  CallStackRemove
  Exit Sub

PROC_ERR:
  GlobalErrorHandler
  GoTo PROC_EXIT
End Sub

Private Sub SecondCall()
  ' Comments: Example of a procedure that triggers the error handler. Make sure gcfHandleErrors = True to see the error handler work

  CallStackAdd "SecondCall"
  If gcfHandleErrors Then On Error GoTo PROC_ERR

  ' Simulate an error, which jumps to the PROC_ERR section
  MsgBox (1 / 0)

PROC_EXIT:
  CallStackRemove
  Exit Sub

PROC_ERR:
  GlobalErrorHandler
  GoTo PROC_EXIT
End Sub

Overview of Total Visual SourceBook

The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!