DominoArea.org [Archive]

Bonsoir,
Je souhaite quand je clique sur un bouton dans le document parent affecter une valeur à tous les documents réponse de ce document.
Je veux faire e code en LotusScript.

Merci pour toute proposition

salut

tu as bien créé dans document enfants au sens notes du terme ?

regardes dans l'aide en lignes du coté de NotesDocument.Responses

une fois avec ta collection tu as StampsAll qui doit repondre a ton besoin

Bonjour,
comme vous me l'avez conseillé j'ai utilisé :Responses et Stampall mais il n'affecte rien une fois arrivé à la ligne stampAll il affiche une erreur.
Vous trouverez ci dessous mon code
Merci

Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New notessession
Dim collection As NotesDocumentCollection
Dim currentResponse As NotesDocument


Set uidoc=ws.CurrentDocument
'Set doc=uidoc.Document

Set collection = doc.Responses
Set currentResponse = collection.GetFirstDocument

While Not ( currentResponse Is Nothing )

'Status=doc.StatusNum(0)
Call currentResponse.StampAll("StatusNum", "10")

Set currentResponse = collection.GetNextDocument( currentResponse )
Wend
End Sub

Quelle erreur as tu ?
Peut être que Cint(10) à la place de "10" fonctionne si c'est une erreur de type dans ton champ StatusNom

Désolée j'avais juste utiliser le doc reponse au lieu de la collection c'est pour ça qu'il affiché l'erreur
Au lieu de ça
Call currentResponse.StampAll("StatusNum", "10")
Il faut mettre ça
Call collection.StampAll("StatusNum", "10")

Merci pour tout

re,

mauvaise algo/compréhension du LS un stampall applique un valeur a tous les documents d'une collection pas d'un document

donc pour ton code essais

Code : Tout sélectionner

Dim ws As New NotesUIWorkspace
Dim session As New notessession
Dim collection As NotesDocumentCollection
Dim currentResponse As NotesDocument


Set uidoc=ws.CurrentDocument
'Set doc=uidoc.Document

Set collection = doc.Responses

if not collection is Nothing then
if collection.count >0 then
  cal collection.StampAll("StatusNum", "10")
end if
end if

ou alors

Code : Tout sélectionner

Dim ws As New NotesUIWorkspace
Dim session As New notessession
Dim collection As NotesDocumentCollection
Dim currentResponse As NotesDocument


Set uidoc=ws.CurrentDocument
'Set doc=uidoc.Document

Set collection = doc.Responses
Set currentResponse = collection.GetFirstDocument

While Not ( currentResponse Is Nothing )

'Status=doc.StatusNum(0)
Call currentResponse.ReplaceItemValue("StatusNum", "10")
call currentResponse.save(true,false)

Set currentResponse = collection.GetNextDocument( currentResponse )
Wend

mais avant teste ta collection ça evite les soucis