Domino 9 und frühere Versionen > ND8: Entwicklung

RichText mehrere Doclinks anhängen

<< < (2/2)

Heiko:
@Bernhard
Richtig vermutet, der Button ist natürlich im Frontend  :)

Speichern und wieder öffnen mache ich. Muss ich ja, damit die Geschichte überhaupt funktioniert.

@Peter
Das globale Definieren hat leider nicht geholfen.
Wenn ich jetzt den Code poste und mich somit als "Cosmosianer" oute muss ich natürlich die Gelegenheit nutzen, und dem "Erfinder ein herzliches Hallo" sagen ;) wie der Zufall so spielt...


--- Code: ---Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument   
Set uidoc = ws.currentdocument
Dim s As New NotesSession
Dim db As NotesDatabase
Dim col As NotesDocumentCollection
Dim doc As NotesDocument
Dim backdoc As NotesDocument
Dim rtitem As NotesRichTextItem
Set db = s.CurrentDatabase
Set backdoc = uidoc.document
Set col = ws.PickListCollection(1,True,"YK000700S700","Cosmos\\Auftrag\\personal.nsf","0. UVB\alle\nach Dokumentart","Personalaufträge","Wählen Sie ein Dokument")

If col.Count = 0 Then
Msgbox ("Sie haben kein Dokument ausgewählt")
Exit Sub
End If

Set doc = col.getfirstdocument

If rtitem Is Nothing Then
Set rtItem = New NotesRichtextitem(backdoc, "vb_ADUserLnk_3" )
Else
Set rtitem = backdoc.GetFirstItem("vb_ADUserLnk_1")
End If

Call rtitem.AppendDocLink( doc, db.title)

REM Das aktuelle Dokument schließen und wieder öffnen...
Call ReOpen(backdoc)

End Sub
--- Ende Code ---


Heiko

Peter Klett:
ja, die Welt ist klein ...

M.E. fehlt das Initialisieren des rtitem

Set rtitem = backdoc.GetFirstItem("vb_ADUserLnk_1")   
If rtitem Is Nothing Then
   Set rtItem = New NotesRichtextitem(backdoc, "vb_ADUserLnk_3" ) (-> wieso 3? Müsste 1 sein!)
End If

Heiko:
That's it!

   Set rtItem = New NotesRichtextitem(backdoc, "vb_ADUserLnk_3" ) (-> wieso 3? Müsste 1 sein)
natürlich _1 - kam vom vielen hin und her kopieren.

Vielen Dank und schönen Tag
Heiko

Navigation

[0] Themen-Index

[*] Vorherige Sete