Moin,moin,
wieso funktioniert untenstehender Code auch ohne call doc.save(true,false)???Werden im Backend gesetzte Flags automatisch gespeichert?
Sub Click(Source As Button)
'****************************************************************************************
'Diese Prozedur ändert das Flag "verliehen" auf 0, und öffnet das aktuelle Dokument erneut,damit die
'Felder in der Maske bearbeitbar sind.
'****************************************************************************************
'Allgemein
Dim work As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim ID As String
'*****************************************************************************************
Set uidoc = work.CurrentDocument
Set doc = uidoc.Document
ID = doc.NoteID
doc.verliehen = "0"
'Call doc.Save(True,False)
Call uidoc.Close(True)
Set db = s.CurrentDatabase
Set doc = db.GetDocumentByID(ID)
Call work.EditDocument(True,doc)
End Sub
Gruß
Demian