QuickStart: Variables Inspector (VBA)

The VariablesInspector object gives you the unique ability in your global error handler to inspect the values of all local variables in the procedure that caused the exception.

Not only that, but you can also traverse the stack and report the values of all local variables in all procedures that led up to the procedure of error being called!

We expose the VariablesInspector class object at two points - ErrEx.VariablesInspector and ErrEx.CallStack.VariablesInspector.

Works with all editions of VBA6, even if running a compiled MDE or with the Access runtime.

Unfortunately this feature is not available for the SimplyVB6 edition of this product. VBA only.

Requires DISTRIBUTABLE EDITION to be purchased for reading or displaying the variable values.

To simply add a 'Show Variables' button to our Vista-style error dialog, just set the property ErrEx.DialogOptions.VariablesButtonEnabled to True and you will get a cool button added to your error dialog:

The rest of this page is for those that want to implement this functionality into their own custom error dialog forms or for logging purposes.

In it's simplest form, you can call the VariablesInspector.DumpAll method which returns a String value containing a simple dump of all variable names, data types and current values:

Public Sub MyGlobalErrorHandler()

    MsgBox ErrEx.VariablesInspector.DumpAll

End Sub

This would produce something like this:

You can also traverse the call stack and for each procedure in the stack, dump all variables as a string:

Public Sub MyGlobalErrorHandler()

    Dim strDump As String
	
    Do
	
        ' Header text - module name + procedure name
        strDump = strDump & " >> " & ErrEx.CallStack.ModuleName & "." & ErrEx.CallStack.ProcedureName & vbCrLf & vbCrLf

        ' Dump the variable details from this procedure...
        strDump = strDump & ErrEx.CallStack.VariablesInspector.DumpAll & vbCrLf
	
    Loop While ErrEx.CallStack.NextLevel
	
    MsgBox strDump
	
End Sub

Which might produce:

Taking this a step further - perhaps you want to customize the "dump" into your own format. This is how:

Start by calling the .FirstVar method which ensures we've got a reference to the first variable. Next, loop through the variables using the .NextVar mthod but checking first that we haven't reached the end of the variables list using the .IsEnd method.

Whilst iterating through the variables, use the following read-only properties to identify the variable:

An example:

With ErrEx.VariablesInspector
	
    .FirstVar
		
    While .IsEnd = False
		
        strDump = strDump & "(" & .ScopeDesc & ") " & .Name & " As " & .TypeDesc & " = " & .ValueDesc & vbCrLf 
		
        .NextVar
		
    Wend
	
    MsgBox strDump
	
End With

Similarly, this technique can be used on the ErrEx.CallStack.VariablesInspector instead whilst traversing through the call stack.

Check out the Sample.mdb for an example of using .DumpAll method and also for the advanced method of accessing the variables values (the Developer Access Form example in particular).