Привет всем.
Очередная проблема.
Хочу сделать, чтобы при изменении поля в родительском документе, менялись поля в дочерних. И перед изменением дочернего проверяю, не открыт ли он на редактирование. Использую свойство NotesDocument.IsUIDocOpen.
И то ли я не правильно делаю, то ли еще что-то, но оно не работает нормально.
Сначала проверял в PostSave. Потом кнопку сделал. И ничего.
При этом, вчера оно нормально работало !
Вот код:
Но иногда в дебаггере работает. Но не пойму почему.
Очередная проблема.
Хочу сделать, чтобы при изменении поля в родительском документе, менялись поля в дочерних. И перед изменением дочернего проверяю, не открыт ли он на редактирование. Использую свойство NotesDocument.IsUIDocOpen.
И то ли я не правильно делаю, то ли еще что-то, но оно не работает нормально.
Сначала проверял в PostSave. Потом кнопку сделал. И ничего.
При этом, вчера оно нормально работало !
Вот код:
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set dc = ws.CurrentDocument.Document.Responses
Set doc = dc.GetFirstDocument
While Not doc Is Nothing
f = doc.IsUIDocOpen
If f=False Then
'...
Else
'...
End If
Set doc = dc.GetNextDocument(doc)
Wend
End Sub
Но иногда в дебаггере работает. Но не пойму почему.