Private Sub sb_ErrTest()
Dim lErrUsr&
On Error GoTo Err
Err.Raise 713
lErrUsr = 4545
Err.Raise vbObjectError + lErrUsr
'Err.Raise vbObjectError + lErrUsr, "Source", "Desc"
Exit Sub
Err:
Dim lErr&, sErr$
With Err
lErr = .Number
sErr = .Description
End With
Debug.Print lErr & " - " & sErr
Select Case Err
Case 1
MsgBox "The error occures: " & vbLf & lErr & vbLf & sErr & vbLf
Case 713
Call sb_LogErr(lErr)
Resume
Case vbObjectError + lErrUsr
Debug.Print lErrUsr
Resume Next
Case Else
Stop
End Select
'Resume
End Sub |
