Modification champ texte riche

[jcdhl]

Bonjour,

Je souhaite copier le contenu d'un champ texte riche dans un autre dans un même document.

D'après les recherches que j'ai pu faire sur ce forum, je n'ai pas réussi à faire ce que je souhaite. Je pense qu'il faut passer par le postopen du masque mais je sèche.

Quelqu'un peut-il m'aider.

Cordialement
Jcdhl

[Michael DELIQUE]

salut

comment fais tu ?

tu as essayé ça :

Set notesItem = notesDocument.CopyItem( item, newName$ )

[LSong]

dans un richetextItem tu as une fonction qui est
appendRTItem qui copie un champs dans un autre

[jcdhl]

Re-bonjour,

Merci pour vos réponses si rapide.
J'ai essayé avec la méthode de Lsong, je crois que j'y arrive mais le problème est qu'il recopie à la fin du champ. Il recopie également les propriétés de masquage du champ ce que je ne souhaite pas.

Pour la méthode avec copyitem, je ne dois pas l'utiliser correctement j'ai un message d'erreur du type :

"Variant does not contain an object"

Merci.
Jcdhl

[lebanner]

Bonjour,

le "Variant does not..." siginifie qu'il manque une instanciation.

est ce que tu peux nous montrer le code pour que l'on puisse t'aider ?

[LSong]

le appendRTItem ... fait comme son nom l'indique un ... append
ca copie tout masquage inclu

tout comme le copyItem

c'est quoi le besoin ? tu veux effacer les options de masquage dans le RT ?
faut passer par les import DLX en theory pour effacer les option de masquage

[jcdhl]

Le plus simple serait peut-être de revoir mon besoin.
Le principe est le suivant :
Une personne rempli le champ et enregistre le document
Lorsque le document est de nouveau ouvert, le champ ne doit pas être modifiable.
Est-ce possible d'avoir accès à ce champ richtext qu'en lecture ?

Si oui, cela sera parfait.

Merci.
Jcdhl

sinon voici mon code :

Code : Tout sélectionner

Sub Postsave(Source As Notesuidocument)
   Dim workspace As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim rtitem2 As NotesRichTextItem
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   
   Set rtitem = doc.GetFirstItem("autreSourceInformationTiers")
   Set rtitem2 = doc.GetFirstItem("autreSourceInformationTiers_2")
   Call doc.RemoveItem("autreSourceInformationTiers_2")
   
   'Set rtitem2 = doc.CopyItem( rtitem, "autreSourceInformationTiers_2")
   Call rtitem2.AppendRTItem( rtitem )
   
   Call doc.Save(True, False)
End Sub


[Michael DELIQUE]

salut

je ferais comme ça pour ton code

Code : Tout sélectionner

   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim rtitem2 As NotesRichTextItem
   
   On Error Goto ErreurHandle
   
   Set doc = source.Document
   
   Set rtitem = doc.GetFirstItem("autreSourceInformationTiers")
   
   If Not rtItem Is Nothing Then
      Set rtitem2 = doc.GetFirstItem("autreSourceInformationTiers_2")
      If Not rtItem2 Is Nothing Then
         Call doc.RemoveItem("autreSourceInformationTiers_2")
      End If
      Set rtItem2 = New NotesRichTextItem(Doc,"autreSourceInformationTiers_2")
      
      
      Call rtitem2.AppendRTItem( rtitem )
      
      Call doc.Save(True, False)
   End If
   
   Exit Sub
ErreurHandle:
   Msgbox "Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Exit Sub

[jcdhl]

En effet, ton code fonctionne correctement.
Il ne reste plus que le problème du champ masqué ou non

merci
Jcdhl

salut

je ferais comme ça pour ton code

Code : Tout sélectionner

   Dim doc As NotesDocument
   Dim rtitem As NotesRichTextItem
   Dim rtitem2 As NotesRichTextItem
   
   On Error Goto ErreurHandle
   
   Set doc = source.Document
   
   Set rtitem = doc.GetFirstItem("autreSourceInformationTiers")
   
   If Not rtItem Is Nothing Then
      Set rtitem2 = doc.GetFirstItem("autreSourceInformationTiers_2")
      If Not rtItem2 Is Nothing Then
         Call doc.RemoveItem("autreSourceInformationTiers_2")
      End If
      Set rtItem2 = New NotesRichTextItem(Doc,"autreSourceInformationTiers_2")
      
      
      Call rtitem2.AppendRTItem( rtitem )
      
      Call doc.Save(True, False)
   End If
   
   Exit Sub
ErreurHandle:
   Msgbox "Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Exit Sub

[Michael DELIQUE]

pour cacher un champ tu as les options de masquage, tu as regardé de ce coté là ?

par contre ça marche pas super, surtout avec des piece jointe mais ya un truc pour le passer

sinon ton champ richt text peut tres bien entre en lecture ça ne pose pas de souci, il suffit de le passer en calculé et dans la valeur de lui mettre son propre nom ou la formule @thisvalue

[LSong]

il y a moulte facon de rendre non modifiable un champs riche text

- tu peu utiliser les subforme calculé, une est en édit et l'autre en lecture
- tu peu utiliser les section a accé controlé (si tu es dans un tableau)

deux solution simple sans avoir besoin de coder

[jcdhl]

Bonjour,

Je suis un grand débutant dans le développement Lotus.
Pour le moment je vais me contenter dans champ texte simple avec lequel j'arrive à faire ce que je veux.

Dès que j'aurais un peu plus de temps, je vais revoir complètement la conception de mon masque.

Je vous remercie pour votre aide qui m'a donné des pistes pour résoudre mon problème et qui m'a amené à voir que la conception de mon masque n'est pas du tout adaptée à l'utilisation que je souhaite en faire.

Merci encore pour votre aide et surement à bientôt sur ce forum pour d'autres questions.

Cordialement
Jean Christophe