G
Grrr
Здравствуйте! Пытаюсь через диалог вызвать форму(Tema) с новым полем значения (NovayaTema), после чего заменить значение поля (StarayaTema) в документах, кодик:
Что я делаю не так? Спасибо.Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument()
If ws.DialogBox("Tema", False, False, False, True, False, False, "Изменение темы", doc , True) Then
While Not(doc Is Nothing)
Call doc.ReplaceItemValue("StarayaTema", NovayaTema)
Call doc.Save(False, False )
Set doc = dc.GetNextDocument(doc)
Wend
Call ws.ViewRefresh
End If
End Sub