Can you give me an example of try/catch in Access VBA? 1

[OhioSteve]

I have this...

try
[something]
catch e as exception
finally
end try


I do not want to use e, I just want to keep the function from dying if it cannot perform [something].

 

[Golom]

Catch ... Try" is a VB.Net construct and Access VB is essentially VB6 coding. You will need to use

On Error GoTo SomeLabel
On Error Resume
On Error Resume Next

in Access as in

On Error Resume Next
X = 10 / 0
If Err.Number <> 0 Then
   X = 0
   Err.Clear
End If

[small]No! No! You're not thinking ... you're only being logical.
- Neils Bohr[/small]

 

[OhioSteve]

Good point. I cannot find the "try..." syntax because it does not exist in this language.

 

[JoeAtWork]

Here's some typical error handling in VBA:

Public Sub MySub()
   On Error Goto ErrHandler

   [Code for the subroutine]

   Exit Sub

ErrHandler:
   'Check for any errors you might be expecting
   If Err.Number = 999 Then
      [Code that resolves this error - retry the line that errord]
      Resume
   Else
      'Give the user some info on this error
      MsgBox "Unfortunately the following error occurred " & _
      "in the MySub routine: Error # " & Err.Number & _
      "  " & Err.Description
   End If
End Sub

Note the Exit Sub line is important to put above the ErrHandler: label, otherwise the code falls through to the error handling code, whether or not there was an error.