By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
the response to responses of a document. The document.responses provides only
the first level responses of the document.
Here is a function that modifies the specified field in all the responses of a
document. This is a recursive sub, that calls itself..
Function Allresponses(document As Notesdocument, Field_To_Modify As String,
New_Value As String)
Dim First_Level_Responses As Notesdocumentcollection
Set First_Level_Responses= document.Responses
Dim First_Document As Notesdocument
Set First_Document = First_Level_Responses.Getfirstdocument()
While Not(First_Document Is Nothing)
Call First_Document.ReplaceItemValue(Field_To_Modify, NewValue)
Call First_Document.Save(True, True)
Call Allresponses(First_Document, Field_To_Modify, New_Value)
Set First_Document = First_Level_Responses.Getnextdocument(First_Document)