À copier dans le QuerySave du masque des documents pères:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	Dim Ws As New NotesUIWorkspace
	Dim UiDoc As NotesUIDocument
	Dim DocPere As NotesDocument
	Dim DocEnfant As NotesDocument
	Dim ColEnfant As NotesDocumentCollection
	
	Set UiDoc = Ws.CurrentDocument
	Set DocPere = UiDoc.Document
	Set ColEnfant = DocPere.Responses
	
	Set DocEnfant = ColEnfant.GetFirstDocument
	
	Do While (Not DocEnfant Is Nothing)
		Call DocEnfant.ReplaceItemValue("Name", DocPere.Name(0))
		Call DocEnfant.ReplaceItemValue("FirstName", DocPere.FirstName(0))
		Call DocEnfant.ReplaceItemValue("Site", DocPere.Site(0))
		Call DocEnfant.Save(True, False, False)
		Set DocEnfant = ColEnfant.GetNextDocument(DocEnfant)
	Loop
End Sub

Dans les masques des documents enfants, il faut choisir:

Soyez le premier à commenter cet article

Seuls les utilisateurs enregistrés peuvent laisser un commentaire.
SVP, connectez vous ou enregistrez vous.