Domino 9 und frühere Versionen > ND6: Entwicklung

Felder in Antwortdokumenten aktualisieren

<< < (2/2)

LN4ever:
Deinem Code fehlt eigentlich nur eine Kleinigkeit, damit du das Handle auf das übergebene Dokument behältst.

sub Änderung(doc as NotesDocument)
...
Set col=doc.Responses
Set respdoc=col.GetfirstDocument
While Not respdoc Is Nothing
call respdoc.ReplaceItemValue("Berechtigung",doc.Berechtigung)
call respdoc.save(False,False)
if respdoc.Form(0)="Kapitel" then
Set changedoc=respdoc
call Änderung(changedoc)
End If
set respdoc.GetNextDocument(respdoc)
wend

Gruß

Norbert

Navigation

[0] Themen-Index

[*] Vorherige Sete