Кто подскажет, почему
Dim RDoc As NotesDocument
Set RDoc=CurDB.CreateDocument
RDoc.UniversalID=CurDoc.UniversalID
Call CurDoc.Copyallitems(RDoc,False)
RDoc.BasicForm=RDoc.Form
RDoc.Form=FormName$
RDoc.SaveOptions="0"
Dim uiworkspace As New NotesUIWorkspace
Call uiworkspace.EditDocument(False,RDoc) - эта строка выдает ошибку database has not been opened yet
Dim RDoc As NotesDocument
Set RDoc=CurDB.CreateDocument
RDoc.UniversalID=CurDoc.UniversalID
Call CurDoc.Copyallitems(RDoc,False)
RDoc.BasicForm=RDoc.Form
RDoc.Form=FormName$
RDoc.SaveOptions="0"
Dim uiworkspace As New NotesUIWorkspace
Call uiworkspace.EditDocument(False,RDoc) - эта строка выдает ошибку database has not been opened yet