DominoArea.org [Archive]

Bonjour

J'ai de nouveau un petit soucis.

Je voudrais récupérer la valeur d'un champ de mon document et la rajouter à la valeur d'un autre champ.

Mon problème est que je mets la valeur de mon champs dans une vaiable et elle apparait sous la forme de ["valeur du champ"] et je voudrais qu'elle soit sous la forme de "valeur du champ".

Comment je peut faire.

Je mets le bout de code qui concerne ce problème

Merci de votre aide



Code :
Dim uiwork As New Notesuiworkspace
Dim UIDoc As NotesUIdocument
Set UIdoc = uiwork.currentDocument
Call Uidoc.save
Set doc = UIdoc.document

Dim rtItem As NotesRichTextItem
Dim ValeurChampCode As Variant

Set ChampCode = doc.GetFirstItem("Code")
Set rtItem = doc.GetFirstItem("CorpsTexte")

If Not rtItem Is Nothing Then

Call rtitem.AddNewLine( 2 )
ValeurChampCode=ChampCode.Values
Call rtitem.AppendText(ValeurChampCode)

Call rtItem.CopyItemToDocument(memo,"Body")
End If

C'est bon j'ai trouvé il suffisait de mettre

ValeurChampCode=ChampCode.Text

Tu n'as pas déclaré ChampCode, mais je suppose que c'est un NotesItem.
Pas besoin de passer par un objet NotesItem pour récupérer la valeur d'un champ
Si ton champ "Code" est de type text ou nombre ou autre, mais pas multivalué ni RichText, le plus simple est de faire :

[syntax="LotusScript"]call rtitem.AppendText(doc.Code(0))[/syntax]
ou les puristes préféreront
[syntax="LotusScript"]call rtitem.AppendText(doc.GetItemValue("Code")(0))[/syntax]