Manage Learn to apply best practices and optimize your operations.

Push Change From Parent To All Descendent

i use this recursive function to changes the value of 1 field from a parent to
all child , the complete hiearchie doc/response/responseToResponse

Public Sub Pushchanges ( doc As NotesDocument, Field As String )

Dim currentResponse As NotesDocument
Dim collection As notesdocumentcollection
Set collection = doc.Responses
Set currentResponse = collection.GetFirstDocument
' replace filed in immediate responses to doc
' If there are none, sub exits and returns to calling sub
While Not ( currentResponse Is Nothing )
Call currentResponse.replaceItemValue(field,doc.GetItemValue(field))
Call currentResponse.Save(True,False,True)
' Recursive call
Call PushChanges(currentResponse, field)
Set currentResponse = collection.GetNextDocument( currentResponse )
Wend

End Sub

This was last published in November 2000

Dig Deeper on Domino Resources - Part 2

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

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 ...

SearchDataCenter

SearchContentManagement

Close