Обновление формы

[Idea]

Доброго времени суток. Возник небольшой вопрос. Есть код кнопки сохранения формы:

Sub Click(Source As Button)
On Error Goto errorHandle
Dim workspace As New NotesUIWorkspace
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument

Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

Call uidoc.Save
Call workspace.ViewRefresh

'Turn on allowEdit so Querymodechange will let it pass

'Turn on EditMode

allowEdit = True

uidoc.EditMode = True

uidoc.Document.HistText = ""
uidoc.Document.HistFlag = ""
Call uidoc.Document.ComputeWithForm(False, False)
Call workspace.ViewRefresh

theEnd:
Exit Sub	
errorHandle:
Exit Sub
End Sub

Проблема в том, что после её нажатия форма должна обновиться (на панели действий одни кнопки появляются, другие исчезают в соответствии с условиями скрытия), но она обновляется только после клика на саму форму. Есть ли способ "перерисовать" форму сразу?

 

[Medevic]

uidoc.Refresh

Код неверен.
Сначала идет сохранение Call uidoc.Save
Потом включается режим редактирования uidoc.EditMode = True.
Первое без второго работать не будет. Или ошибка или что-то лишнее.
ComputeWithForm не нужен. Как и workspace.ViewRefresh.

 

[Omh]

Call uidoc.RefreshHideFormulas

CоmputeWithForm - злостный метод, лучше не юзать.
Код очень неоптимален.

 

[Idea]

Спасибо за ответы. С проблемой разобралась.

з.ы. На счет режима редактирования - это не ошибка. Так надо.