Hallo,
seit donnerstag abend kämpfe ich nun schon mit einer Dokumentenverknüpfung rum und begreife nicht warum es nicht funktioniert. Vielleicht könnt Ihr mir helfen:
Aus einen Anschreiben heraus erstelle ich 1 Dokument. Dieses ist ein Dokument welches von den Anwendern bearbeitet werden soll. Nun möchte ich das das Formular als Link an das Anschreiben gebunden wird. Dazu habe ich über den "Save" Button im Hauptdoc folgenden Code gesetzt:
Sub Click(Source As Button)
Dim s As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim parentdoc As notesdocument
Dim success As Variant
Dim linkdoc As notesdocument
Dim rtitem As notesrichtextitem
Set uidoc=ws.currentdocument
Set parentdoc = uidoc.document
' erstellung eines backend dokumentes
Set db = s.currentdatabase
Set doc = db.createdocument
doc.form="eplan"
' erstelltes dokument dem geöffneten Dokument als antwort zuweisen
Call doc.makeresponse(parentdoc)
Call doc.save(True,False)
' felder des eben erstellten Docs zugänglich machen
success = doc.ComputeWithForm( False, False )
' link ins geöffnete Dokument einfügen
Set rtitem = New notesrichtextitem(uidoc.document,"body2")
Set linkdoc=doc
Call rtitem.appenddoclink(linkdoc,"")
Call uidoc.document.save(True,False)
Call doc.save(True,False)
End Sub
Das erstellen funktioniert, das Dokument wird auch dem geöffneten Doc richtig zugewiesen, aber der Doclink funktioniert nicht.
Ich begreifs einfach nicht. Ich hoffe Ihr könnt mir weiterhelfen.
Danke
NotesNewbie
