You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
1.3 KiB
42 lines
1.3 KiB
Attribute VB_Name = "modErrorHandling"
|
|
'
|
|
|
|
' Define your custom errors here. Be sure to use numbers
|
|
' greater than 512, to avoid conflicts with OLE error numbers.
|
|
Public Const MyObjectError1 = 1000
|
|
Public Const MyObjectError2 = 1010
|
|
Public Const MyObjectErrorN = 1234
|
|
Public Const MyUnhandledError = 9999
|
|
|
|
' This function will retrieve an error description from a resource
|
|
' file (.RES). The ErrorNum is the index of the string
|
|
' in the resource file. Called by RaiseError
|
|
Private Function GetErrorTextFromResource(ErrorNum As Long) As String
|
|
On Error GoTo GetErrorTextFromResourceError
|
|
Dim strMsg As String
|
|
|
|
' get the string from a resource file
|
|
GetErrorTextFromResource = LoadResString(ErrorNum)
|
|
|
|
Exit Function
|
|
GetErrorTextFromResourceError:
|
|
If Err.Number <> 0 Then
|
|
GetErrorTextFromResource = "An unknown error has occurred!"
|
|
End If
|
|
End Function
|
|
|
|
'There are a number of methods for retrieving the error
|
|
'message. The following method uses a resource file to
|
|
'retrieve strings indexed by the error number you are
|
|
'raising.
|
|
Public Sub RaiseError(ErrorNumber As Long, Source As String)
|
|
Dim strErrorText As String
|
|
|
|
strErrorText = GetErrorTextFromResource(ErrorNumber)
|
|
|
|
'raise an error back to the client
|
|
Err.Raise vbObjectError + ErrorNumber, Source, strErrorText
|
|
End Sub
|
|
|
|
|