[AccessD] MZ Tools

[John Colby]

I use MZ Tools to build a consistent error handler in any function that
needs one.

Function ShowErrHandler()

    On Error GoTo ShowErrHandler_Error

Exit_ShowErrHandler:
    On Error GoTo 0
    Exit Function

ShowErrHandler_Error:
Dim strErrMsg As String
    Select Case Err
    Case 0      'insert Errors you wish to ignore here
        Resume Next
    Case Else   'All other errors will trap
        strErrMsg = "Error " & Err.Number & " (" & Err.Description & ") in
procedure TestImport.Module1.ShowErrHandler, line " & Erl & "."
        Beep
#If boolELE = 1 Then
        WriteErrorLog strErrMsg
#End If
        assDebugPrint strErrMsg
        Resume Exit_ShowErrHandler
    End Select
    Resume Exit_ShowErrHandler
    Resume 0    'FOR TROUBLESHOOTING
End Function

I would love to do a thread about how each of us uses the snippets thingie
in MZ Tools.  I don't use the snippets mostly because I just never figured
out how.  MZ Tools already has a handful of snippets already assigned to
their toolbar and I figured out how to modify the one that builds the error
code and that is what you see above.

So what snippits do you guys use?  How are snippits created?  Linked to
hotkeys?  If anyone has a link to documentation on "how to" insert that in
the thread.

My error handler is nothing special except that I build out a case in the
error handler section.  I do specific things related to processing errors.

#If boolELE = 1 Then
        WriteErrorLog strErrMsg
#End If

Allows me to use a compiler directive to turn on or off (compile in or out)
a call to an error logger.  Most probabvly do, but for those who don't...

In the editor - click tools then select the properties and a form opens
which allows us to set a global (to the entire project) conditional
compilation arguments.  These compiler constants  will affect all code
throughout the project.

https://vbaplanet.com/compilerdirectives.php

OTOH you can also do compiler constants that are only good inside the
module in which it is defined.

Option Explicit
#Const DebugMode = 1

Public Sub assDebugPrint(ByVal vstrMsg As String, Optional boolPrint As
Boolean = False)
#If DebugPrint Then
  If boolPrint = True Then Debug.Print vstrMsg
#End If
End Sub

This allows me to turn on and off debug printing the errors in the debug
window.

Soo.... that is all I do with snippits.  What do you do and how do you do
it?
-- 
John W. Colby
Colby Consulting