Modify A Field In All The Responses Of A Document.

There are many cases where you need to modify a field in all the responses and
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)
Wend
End Function
This was first published in November 2000

Dig deeper on Lotus Notes Domino Administration Tools

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close