R
rm2005
Добрый день!
У меня такая проблема.
Из формы документа пытаюсь создать ответный документ. Вешая формулу (см. ниже) на кнопку, при нажатии на неё, создаётся ответный документ, текущий док закрывается, а новый открывается в режиме редактирования.
На строке Call CurrentUIWorkspace.EditDocument(True,Vizadoc) выдаёт ошибку:
Variant does not contain an object.
У меня такая проблема.
Из формы документа пытаюсь создать ответный документ. Вешая формулу (см. ниже) на кнопку, при нажатии на неё, создаётся ответный документ, текущий док закрывается, а новый открывается в режиме редактирования.
Код:
Sub Click(Source As Button)
Dim CurrentUIWorkspace As NotesUIWorkspace
Dim baza As New NotesDatabase(CurrentServerName, DataBasePath+SoglDataBaseName)
Dim Vizadoc As NotesDocument
Dim CurrentDoc As NotesDocument
Dim CurrentUIDoc As NotesUIDocument
Dim itemSpisok As NotesItem
Set CurrentUIWorkspace=New NotesUIWorkspace
Set CurrentUIDoc = CurrentUIWorkspace.CurrentDocument
Set CurrentDoc = CurrentUIDoc.Document
Set Vizadoc=baza.CreateDocument
Vizadoc.Form="Виза"
Call Vizadoc.MakeResponse(CurrentDoc)
Call CurrentUIDoc.close
Call CurrentUIWorkspace.EditDocument(True,Vizadoc)
End Sub
На строке Call CurrentUIWorkspace.EditDocument(True,Vizadoc) выдаёт ошибку:
Variant does not contain an object.