Sign in to follow this  
Followers 0
gcue

exit function when COM error

3 posts in this topic

i am trying to "Return" out back to the GUI when a COM error occurs but i end up in a long sequence of errors that doesnt seem to end.

Essentially what i would liek to do, is RETURN to the GUI after the first error occurs.

i know my attempt below doesnt make sense because $notes_session isnt being set to anything but wasnt sure how else to return out of the function

thank you

func notes
    $dbobj = AccountInfo_Notes_userDB($server, $database)
    AccountInfo_Notes_getAssocList($dbobj)
endfunc

Func AccountInfo_Notes_userDB($server, $database)

    $notes_session = ObjCreate("Lotus.NotesSession")
    $notes_session.Initialize("password")

    If $notes_session = False Then
        MsgBox(0, "", "2")
        Return
    EndIf
EndFunc

Func COM_Error()

    MsgBox(262144, "Account Info", $COM_Error.description & @CRLF & _
            "" & @CRLF & _
            "Script Line: " & $COM_Error.scriptline)

    Return False

EndFunc   ;==>COM_Error

Share this post


Link to post
Share on other sites



perfect!

thank you very much trance

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0