RichText

[lebanner]

Bonjour,

Je souhaite ajouter du texte dans un champ texte riche mais le code mis en place ne veut rien faire!! lol

voici le code que j'ai mis dans le querysave du masque :

Code : Tout sélectionner

' Déclaration des différentes variables
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
   
' Initialisation
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

Call uidoc.Refresh
   
Dim user As String
user = session.UserName

Set rtitem = New NotesRichTextItem( doc, "champrichtext" )
Call rtitem.AppendText ("Document modifié par" & user & " le " & Now & ".")
   
' Enregistre
Call doc.Save(True, False)

Est ce que quelqu'un aurait-il une idée ?

Merci d'avance

Cordialement

[Maxime Choucroun]

Essai plutot le postsave.
Ton code du querysave (doc sur un uidoc en cours) devrait être ecrasé lors de l'enregistrement.
Par contre, apres la sauvegarde, cela devrait mieux marcher...

[stloje]

Tu as essayé la méthode "Update" de la classe NotesRichTextItem. C'est nouveau à partir de la v6

[lebanner]

Essai plutot le postsave.
Ton code du querysave (doc sur un uidoc en cours) devrait être ecrasé lors de l'enregistrement.
Par contre, apres la sauvegarde, cela devrait mieux marcher...

Bonjour,

Merci pour l'info, cela fonctionne.

Par contre, le problème maintenant c'est que le code écrase le texte existant dans le champ alors que je souhaite le garder

est ce qu'il y a une solution ?

Cordialement

[Michael DELIQUE]

salut

normale tu généres un nouveau champ as chaque fois

Set rtitem = New NotesRichTextItem( doc, "champrichtext" )

essais plustot

set rtitem = doc.getfirstitem("champrichtext")
if rtitem is nothing then
Set rtitem = New NotesRichTextItem( doc, "champrichtext" )
end if

[lebanner]

salut

normale tu généres un nouveau champ as chaque fois

Set rtitem = New NotesRichTextItem( doc, "champrichtext" )

essais plustot

set rtitem = doc.getfirstitem("champrichtext")
if rtitem is nothing then
Set rtitem = New NotesRichTextItem( doc, "champrichtext" )
end if

Désolé, je dois manquer de café. Je vais me poser une perf de caféine !!

Je viens de vérifier les paramètres d'un champ texte riche et il n'est pas possible de paramètrer les "options de valeurs multiples" (style faire une nouvelle ligne a chaque fois...) car là il met tout l'un à la suite des autres.
Il faut sans doute utiliser la méthode AddNewLine ?

Merci

Cordialement

[Michael DELIQUE]

re,

aussi !

[lebanner]

OK Merci bcp pour toutes les informations, cela fonctionne à merveille

Cordialement