Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How ti handle an error?
- Thread starter Gti
- Start date
In your routine:
Public Sub MySub()
On error goto MyErrorHandler
'your code. If an error occurs it will drop into your error 'label below
Exit Sub
MyErrorHandler:
If err.Number = 68 Then
'Do stuff to handle error
msgbox "Device not present",vbcritical,"Device not found"
else
'do stuff to handle error or alert user
msgbox err.number & " " & err.description & " " & err.source
End if
End Sub
Public Sub MySub()
On error goto MyErrorHandler
'your code. If an error occurs it will drop into your error 'label below
Exit Sub
MyErrorHandler:
If err.Number = 68 Then
'Do stuff to handle error
msgbox "Device not present",vbcritical,"Device not found"
else
'do stuff to handle error or alert user
msgbox err.number & " " & err.description & " " & err.source
End if
End Sub
- Status
Similar threads
- Question
- Locked
- Question
- Locked
- Question