"On Error.." statement does not work

mike123abc · November 14th, 2003, 12:46 PM

Hi,

I have the follwing code :

Set cnn1 = New ADODB.Connection

strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Access DataStore\..."

On Error Resume Next
cnn1.Open strCon 'the program stops here and generates an error...
If Err.Number > 0 Then
...
End if

I intentionally run the code so that it generates an error because I want to test my error trapping functionality.

It doesn't work - only the VB Error Message Window keeps popping up.

What am I missing ?

Thank you

Mike

SerranoG · November 14th, 2003, 01:29 PM

Your sequence of events puzzles me. Specifically, the "On Error" declaration should be at the top to catch all errors. Otherwise errors can happen before it! How about...

Code:

Private Sub MyProcedure()

   Dim {variables here, e.g. strCon as String}

   On Error GoTo Err_MyProcedure

   Set cnn1 = New ADODB.Connection

   strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Access DataStore\..."

   cnn1.Open strCon

Exit_MyProcedure:
   Exit Sub

Err_MyProcedure

   'Error Trapping Here
   If Err.Number > 0 Then
      ...
   End if
   Resume Exit_MyProcedure

End Sub

Of course, you'd replace "MyProcedure" with the actual name of your procedure.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

stephanel · November 14th, 2003, 02:00 PM

You should also check for error different from 0. Most of the time ADO return negative error number.

Code:

   'Error Trapping Here
   If Err.Number <> 0 Then
      ...
   End if

mike123abc · November 14th, 2003, 03:15 PM

Hi,

thanks for your suggestions (hope I didn't puzzle you too much :-) ). The problem was the Error Trapping setting in the Tools/Options Menu, which was set to "Break on all errors". And yes, error codes CAN be < 0 (I forgot that).

Regards,

Mike