I'm doing this in order to implement a better error handling routine in my code:

---> Class cMensagens:

Private mvarMsg As String
Private mvarRes As Boolean

Public Property Get Msg() As String
    Msg = mvarMsg
End Property

Public Property Let Msg(ByVal vMsg As String)
    mvarMsg = vMsg
End Property


Public Property Get Res() As Boolean
    Res = mvarRes
End Property

Public Property Let Res(ByVal vRes As Boolean)
    mvarRes = vRes
End Property


--> Form:

Private Function CanFinish(idT As Long, numO As Integer) As cMensagens

   ...

    If rst.EOF Then
        CanFinish.Res = False 'PROBLEM HERE!!!
        CanFinish.Msg = "Error message"
     End If

End Function

But I always get the "Object Variable or With block variable not set" error when I try to set the return values of the function. What am I doing wrong?

Thanks!

Rui

you have to do something like this

[code]
Private Function CanFinish(idT As Long, numO As Integer) As cMensagens

   ...

     dim Objmsg as cmensagens
     set objmsg = new cmensagens
...
    If rst.EOF Then
   objmsg .Res = False 'PROBLEM HERE!!!
        objmsg .Msg = "Error message"
        set CanFinish = objmsg
        set objmsg = nothing


     End If

End Function


HTH

Gonzalo

CanFinish must be initialized before using it:

Private Function CanFinish(idT As Long, numO As Integer) As cMensagens
set canfinish = new cMensages '' <- this was missing


and when you use it:

dim cTmp as cMensagen
set cTmp = CanFinish(...)

Marco

Thanks a lot guys! Problem solved!