ActiveX DLL Error handling problem

Hi,

I am having a problem generating an error trap in my code.
The main form:

Private Sub Command1_Click()
On Error GoTo InputError:
' Dimentions
Dim au As cAuthor
Set au = New cAuthor
au.Author_FirstName = GUI.Text1
au.Author_LastName = GUI.Text2
'Report the authors name in parsed format
MsgBox au.ReportName
'Clear reference
Set au = Nothing
Exit Sub

InputError:
MsgBox "Error:" & Err.Number & vbCrLf & Err.Description, vbExclamation, Err.Source

End Sub

I have an ActiveX DLL (Class Module) that does the error checking:

Option Explicit
'Local varaiable(s) to holde property value(s)
Private mvarAuthor_FirstName As String
Private mvarAuthor_LastName As String

Public Property Let Author_LastName(ByVal vData As String)

If Trim(vData) = "" Then
--> Err.Raise 6001, "Invalid Input", "Please enter the Auter's Last Name."
Else
mvarAuthor_LastName = vData
End If
End Property
Public Property Get Author_LastName() As String
Author_LastName = mvarAuthor_LastName
End Property
Public Property Let Author_FirstName(ByVal vData As String)
If Trim(vData) = "" Then
Err.Raise 6002, "Invalid Input", "Please enter the Auter's First Name."
Else
mvarAuthor_FirstName = vData
End If
End Property
Public Property Get Author_FirstName() As String
Author_FirstName = mvarAuthor_FirstName
End Property
Public Function ReportName() As String
ReportName = mvarAuthor_LastName & ", " & mvarAuthor_FirstName
End Function


When I have no text for GUI.Text2 (Last Name), I wanted to generate an error from the class module and trap it in the main form. But when I run this I get a message box generated from the Class module instead of trapping it in the main form.

Does anyony have any ideas?


:confused:

How are you getting a msgbox from your dll when you don't have any code in your dll to show a Msgbox? Your error handling in the form tells it to show the msgbox. Unless you mean this form is in the dll. In which cause you would just pass on (another Err.Raise) the error instead of having your Msgbox code.

The err.raise opens a vb error message box

What kind of Error handling do you have on in the VB IDE?

If you run it in the IDE it will react different then in the EXE to help you debug. If you want to test it try using break on unhandled errors.

[IMG]C:\Documents and Settings\Ed\My Documents\error.gif[/IMG]