[AccessD] MZ Tools

Ryan W wrwehler at gmail.com
Wed Jan 11 15:30:28 CST 2023


I never got in the habit of using MZ Tools snippets but if I remember right
you press Ctrl-Shift-E after typing the snippet keyword:

example:

iie(ctrl-shift-e) will insert an if then else codeblock.

They call it keyword expansion:
https://www.mztools.com/v8/onlinehelp/keyword_expansion.htm





On Wed, Jan 11, 2023 at 3:23 PM John Colby <jwcolby at gmail.com> wrote:

> 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
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


More information about the AccessD mailing list