Domino 9 und frühere Versionen > ND7: Entwicklung

Doklink erzeugen klappt nicht!???ß

<< < (3/5) > >>

masterste2000:
Vielen Dank Andreas.

Habe das Skript jetzt mal angepasst, doch es wird weiterhin in dem Feld "Videodatei" kein DocLink eingefügt! :-:

Vieleicht habe ich ja was übersehen?!

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" ) 'Neues Dok in der DB B erstellen

   Dim doc As NotesDocument
   Dim docVID As NotesDocument
   
   Call uidocVID.save ' Speichern des Doks in der DB B
   
   Set docVID = uidocVID.document
   Set doc = uidoc.document   

   Dim rt As NotesRichTextItem
   Set rt = New notesrichtextitem(doc, "VideoDatei")
   
   Call rt.AppendDocLink( docVID, "Link auf das Videodokument in der DB B" )
   
End Sub

DerAndre:
Nach Doc zu und auf auch nicht?

Wir hantieren mit einem RTF und das zeigt eigentlich erst nach dem schliessen und wieder öffnen seinen wahren Inhalt an.

masterste2000:
 Hi Andre,

auch das Abspeichern des Dok's in der DB A hat nichts gebracht!  ::)

Normalerweise sollte doch das Symbol für den DokLink im Feld "VideoDatei" vom Typ Text angezeigt.

Dieses wird, wie schon gesagt, auch nicht nach dem speichern angezeigt! :-:

Hat das noch keiner Mal an einer anderen Stelle schon mal benutzt!

Ich hoffe es findet sich noch jemand mir evtl. mit seinem Skript unter die Arme greifen kann. ;)

Gruß
Stephan

ascabg:
Frage.

Das Feld "ViedeoDatei" ist in der Maske vorhanden?
Hat es wirklich den Feldtyp "Text"?

Wenn ja, dann kann Dein DokLink auch nicht funktionieren.

Mit Deinem Code erzeugts Du nur ein weiteres Feld mit dem Name "VideoDatei", welches in Deiner Maske dann aber nicht angezeigt wird. (auch nach dem Speichern des Dokumentes, dem anschliessenden Schliessen des Dokumentes und dem erneuten oeffnen des Dokumentes.


--- Code: ---   Dim workspace As New NotesUIWorkspace
   Dim uidocVID As NotesUIDocument
   Dim uidoc As NotesUIDocument
   Dim rt As Variant

   Set uidoc = workspace.Currentdocument
   Set uidocVID = workspace.ComposeDocument _
   ( "MeinServer", "Anwendungen\ProjAllgVID.nsf", "VideoAblage" ) 'Neues Dok in der DB B erstellen

   Dim doc As NotesDocument
   Dim docVID As NotesDocument
   
   Call uidocVID.save ' Speichern des Doks in der DB B
   
   Set docVID = uidocVID.document
   Set doc = uidoc.document   

   Set rt = doc.GetItemValue("VideoDatei")
   If Not rt Is Nothing Then
     Call rt.AppendDocLink(docVID, "Link zum Dok in Db B")
   End If

--- Ende Code ---


Andreas

DerAndre:
Das Frontend brauch ein Feld vom Typ Richtext!

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete