Client lourd copier doc link dans un autre document a ouvert

[madani]

Bonjour et merci avance,

Je voudrai savoir si vous avez pas un tip j'ai cherché mais sa ne parle que de doc link ac envoie e-mail.

Moi je cherche un doc link quand j'ouvre un autre masque, j'ai pas réussi j'ai fait ceci c'est un bout de code.

le document est ouvert en mode édition et à l'aide d'un bouton je copie certain champs et optimal serait de copier le doclink, histoire de faire un lien entre le nouveau document et ancien.

Ce n'est pas un document de type réponse c un document simple.

mon bout de code :

Code : Tout sélectionner

doc.Save 1,0 'je sauvegarde
        'plus haut je crée un document appeler doc2
        'je me suis inspirer de l'aide mais sa ma pas trop aidé


   Dim rti As NotesRichTextItem
   Dim rtnav As NotesRichTextNavigator
   Dim rtlink As NotesRichTextDocLink

   Set rti = doc2.GetFirstItem("unid_1")
   Set rtnav = rti.CreateNavigator

   Set rtlink = rtnav.GetElement

   Msgbox  Cstr(doc2.UniversalID)

   rtlink.DocUNID = doc2.UniversalID

   Messagebox "sa marche "

Merci

[roubech]

tu as un doc "doc1" ouvert en edition avec un champ rich text "unid_1" qui contient un doclink et tu veux le copier dans un rich text "unid_2" d'un doc "doc2" que tu vient de créer en memoire à partir de db.CreateDocument ? c'est ça ?
ou tu as un doc "doc1" ouvert et tu veux créer un doclink vers ce doc dans un doc "doc2" que tu vient de créer en mémoire ?

[madani]

Voilà mon bout de code, je n'utilise pas db.createdocument

Dans ce bout de code j'ai mis jute comment je copie mon document.

Mais je pense que je dois regarder du coté db.createdocument

Code : Tout sélectionner

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim uidoc2 As NotesUIDocument
   Dim session As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim doc2 As NotesDocument
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   uidoc.EditMode = True
   Set uidoc2 = workspace.ComposeDocument ( "", "", "Demande Produit" )
   Set doc2 = uidoc2.Document
   doc.Save 1,0
   '/////////////Document copi de champs
   Call doc2.ReplaceItemValue("num",doc.num(0)) 'numero
   '/////////////
   Call uidoc2.Refresh
   doc.Save 1,0
   '//////////////////
   Call uidoc.Refresh
   Call uidoc.Save
End Sub

[roubech]

ton code ne répond pas à mes questions pour cerner clairement ton besoin et ton contexte

[LSong]

tout pareil je ne comprend pas le besoin

[madani]

merci comme même j'ai juste copier le numéro afin avoir une correspondance entre les documents. au lieu de récupére @documentunid, je récupère @texte(@documentunid).