PostOpen Database Opening a new db.

I have a code in PostOpen database that will open a new db then close the db that opened it. Problem is I cannot close the initial db.
Sub Postopen(Source As Notesuidatabase)
Dim workspace As New NotesUIWorkspace
Call workspace.OpenDatabase ( "ServerLive", "UsedDB.nsf" )
Call Source.Close
End Sub
aenticeAsked:
Who is Participating?
 
Bill-HansonCommented:
Call Source.Close before opening the other db and it will work...

Sub Postopen(Source As Notesuidatabase)
    Call Source.Close
    Dim workspace As New NotesUIWorkspace
    Call workspace.OpenDatabase ( "ServerLive", "UsedDB.nsf" )
End Sub
0
 
aenticeAuthor Commented:
Thanks! This made me feel stupid :-)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.