Hallo Zusammen
Dokument1 (Equip) übernimmt beim Anlegen die UNID von Dokument2 (Room) in das Feld RoomDocID. Beim Speichern soll nun die ID von Equip an ein Feld in Room übergeben werden.
An der Stelle mit dem Pfeil bekomme ich die Fehlermeldung "Object Variable not set". Was mache ich falsch?
Leider habe ich nicht die Wahl zwischen Formula und Script, da im QuerySave noch ein paar Dinge mehr beschrieben werden.
Vielen Dank für jede Hilfe.
Euer Nick278
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim roomdoc As NotesDocument
Dim roomitem As NotesItem
Dim roomdocid As String
Dim equipdocid As String
' auslesen der RoomDocID aus aktuellem Dokument (Equip)
Set roomitem = source.Document.GetFirstItem("RoomDocID")
roomdocid = roomitem.Text
' auffinden der zughörigen Raumbuchung über RoomDocID (<----)
Set roomdoc = db.GetDocumentByUNID(roomdocid)
' auslesen der EquipDocID aus aktuellem Dokument
equipdocid = "geht dies mit: source.Document.NoteID ?"
' einfügen der EquipDocID in Raumbuchung
roomdoc.EquipDocID = equipdocid
'speichern der Raumbuchung
Call roomdoc.Save(True, True)
End Sub