pinpointing an error

[psychotomus]

How can you find which line of code an error occurs on without the compiler? On some computers, the program works fine. On other computers, it gets a Type Mismatch error, and on other computers, it gets a overflow error.

I could add a counter after everyline then pop up a message box with the counter # to find out where exactly the error is occuring, but is there an easier way?

[CVMichael]

Download MZ-Tools, it has a feature to add line numbers, and error handler. You can make it tell you at what line the error occured even when the code is compiled, and it's very easy to use.

[|2eM!x]

well you cant make it to find your line with the error because its encrypted...heres how i do it:

on error goto errhandler
 
errhandler:
error:
    If Len(Err.Description) & Len(Err.Source) = 0 Then
    Print vbNullString
    Else
     MsgBox Err.Description & " Source : " & Err.Source
     End If

[|2eM!x]

i have mztools and ive never seen that feature anywhere, being able to see what line it is on after being compiled

[CVMichael]

Check picture attached...

[RhinoBull]

How can you find which line of code an error occurs on without the compiler? On some computers, the program works fine. On other computers, it gets a Type Mismatch error, and on other computers, it gets a overflow error.

I could add a counter after everyline then pop up a message box with the counter # to find out where exactly the error is occuring, but is there an easier way?

You should always add error handlers to every new procedure you write.
The following is just a quick sample so you can modify:

Private Sub Command1_Click()
Dim a%
 
On Error GoTo ErrHandler
 
    a = 1 / 0
    Exit Sub
 
ErrHandler:
'-----------
 
    MsgBox "An error occured in" & vbNewLine & _
           "Module: Form1" & vbNewLine & _
           "Procedure: Command1_Click" & vbNewLine & _
           "Error Number: " & Err.Number & vbNewLine & _
           "Error Desc: " & Err.Description
    Err.Clear
    Resume Next 'if you need to
 
End Sub