Hi,
Du braucht in der Maske von Doc2 ein Textfeld mit Namen ParentID (kannst du aber auch anders benennen).
Deinen Code erweiterst du wie unten dargestellt.
Set uidocWV = uiwsCurrent.ComposeDocument( server, file, "WVDoc")
Set docWV = uidocWV.Document
docWV.Subject = docSource.Subject(0) + " [Auftragsverwaltung]"
'Einfügen der ID
docWV.ParentID = docSource.UniversalID
Call uidocWV.GotoField( "Link" )
Call uidocWV.Paste
Set AAdb = docSource.parentdatabase
Call uidocWV.Refresh
Damit hast du die ID und kannst dann darüber auf des Dokument zugreifen.
Axel
Hi,
in ganz allgemeiner Form skizziert kannst du so auf ein Dokument in einer andere Datenbank zugreifen.
Dim db As Notesdatabase
Dim docThis As NotesDocument
Dim parent As NotesDocument
Set db = New NotesDatabase("Name des Servers", "Name der Datenbank")
Set parent = db.GetDocumentByUNID( docThis.ParentID )
...
Weitere Infos findest du auch in der Designer-Hilfe
Axel