🚀 go-pugleaf

Example:

Private Sub Command1_Click()
' Handle File Not Found error
On Error GoTo FileErr

....<your code here>

Exit Sub

FileErr:
  If Err.Number = 53 Then
    MsgBox "Error " & Err.Number & " " & Err.Description, vbCritical, "Error"
Exit Sub
End Sub

Error 53 is the "File Not Found" error. You can also write that to handle pretty much any
error and report it to you. An example would be:


Private Sub Command1_Click()
' Handle File Not Found error
On Error GoTo FileErr

....<your code here>

Exit Sub

FileErr:
    MsgBox "Error " & Err.Number & " " & Err.Description, vbCritical, "Error"
Exit Sub
End Sub

That will handle pretty much any error in that sub only. It isn't global. Try it and let
me know if it was useful to you.

Glen


On Sun, 8 Aug 1999 20:37:27 -0300, "Zeff" <dzeff@intramed.net.ar> wrote:

>I'd like to know how to use the "on error" command, when somebody wants to
>open a file and that file doesn't exist. Which is that code of error?
>