Domino 9 und frühere Versionen > Entwicklung

Löschen von Dokumenten aus einer DB zur anderen

<< < (6/7) > >>

Alexis:
Bernhard,

leider sehe ich den Link in der Maske nicht  :-[

Nicht nach Abspeichern,
Feld "Link" als RTF mit Mehrfachwerten oder auch nicht,
Feld "Link" berechnet oder auch nicht.

Hast Du noch 'ne Idee?
Kann der Debugger helfen?

Alexis

koehlerbv:
Deklariere mal Dein rtitem als NotesRichTextItem statt als Variant. Und dann schau mal im Debugger, wie die Variablen nacheinander belegt werden.
Auf die Schnelle sehe ich nicht, was sonst nicht paßt.

So long,
Bernhard

Alexis:
Berhard,

mir fällt nur auf, dass uidoc vom Typ Variant ist.

Als NotesDocument deklariert erhalte ich die Fehlermeldung in der Zeile Set uidoc = workspace.CurrentDocument "Type mismatch CurrentDocument"

???
Alexis

koehlerbv:
Da habe ich total übersehen, daß Du ja uidoc gar nicht deklariert hast:
Dim uidoc as NotesUIDocument

Dazu noch ein Tip: Schreibe nie eine einzige Zeile LS, ohne in die Options des Moduls eingetragen zu haben:
Option Declare

HTH,
Bernhard

Alexis:
Hallo Forum, hallo Bernhard,

leider bin ich bis jetzt noch nicht erfolgreich, obwohl die Hilfestellung von Berhard für mich Script-Greenhorn prima war und nun leider  8) Urlaub ansteht. Hier der letzte Stand des Scripts, vielleicht hat noch jemand in der Zwischenzeit 'ne Idee, warum der Link nicht in der Maske erscheint. Nach dem Urlaub geht' weiter.

Sub Click(Source As Button)
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument  ' Reservierung
   Dim uidoc As NotesUIDocument ' Bewirtungsmaske
   Dim docCurrent As NotesDocument
   Dim rtitem As NotesRichTextItem
   
   Set db=session.CurrentDatabase
   Set collection = workspace.PickListCollection(1, False,_
   "DE01-SPK24/DE01","DOW012.nsf","My Reservations","My Dialog", _
   "Please select a document.")              
   
     If collection.Count <> 1 Then
      Messagebox "Eine Reservierung auswählen"
      Exit Sub
   End If
   
   Set doc = collection.GetFirstDocument          
   Set uidoc = workspace.CurrentDocument
   Set docCurrent = uidoc.Document          
   Set rtitem = New NotesRichTextItem( docCurrent, "Link" )
   Call rtitem.AppendDocLink (doc, "Link", "Link")      
   
End Sub

Danke und tschüss
Alexis

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete