Domino 9 und frühere Versionen > ND6: Entwicklung

Auswahl Picklist und Doclink

(1/3) > >>

CLI_Andreas_Schmidt:
Hi,

ich möchte in einer Picklist ein Dokument auswählen und dann für dieses Dokument einen Doclink in einer Maske speichern. Jed dat ?

Gruss

Andreas

Glombi:
Ja, dat geht!

Du brauchst folgende Methode:
Call notesRichTextItem.AppendDocLink( linkTo, comment$ [, HotSpotText$ ])

Das Dokument für den Link holst Du Dir mit
Set notesDocumentCollection = notesUIWorkspace.PickListCollection(  PICKLIST_CUSTOM[,multipleSelection ] [, server$ ] [, databaseFileName$ ] [, viewName$ ] [, title$ ] [, prompt$ ] )

Andreas

CLI_Andreas_Schmidt:
Ja danke auch. Klasse ich probiere es so.

Super.

Andreas.

CLI_Andreas_Schmidt:
Ich habe es mal runterprogrammiert. Leider tut es nicht. Die Picklist läuft gut und auch die Collection funktioniert. Nur der Doclink taucht nicht auf.

gucks du hier for Fehlersuche.

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,"SPSRV1","Parchiv","Presentations","Info","select a document")
   Set doc = col.getfirstdocument
   If col.Count = 0 Then
      Msgbox ("Sie haben kein Dokument ausgewählt")
      Exit Sub
   End If
   
   Set rtitem = New NotesRichTextItem( backdoc, "Presentationsdoclink" )
   Call rtitem.AppendDocLink( doc, db.title)
   Call backdoc.Save(True, True)
   Call uidoc.Reload
   
   
End Sub


Sieht jemand den Fehler ?

Gruss

Andreas

animate:
auch nicht nach nochmal schließen und öffnen?

Navigation

[0] Themen-Index

[#] Nächste Seite