1Bob Voith  24.02.2023 12:06:05  Notes UIDoc reopen without saving the underlying document

Cool!

2Andre Guirard  10.03.2023 1:35:18  Notes UIDoc reopen without saving the underlying document

I like to also restore the position in the document if I can, like this:

Function RedisplayDoc(uidoc As NotesUIDocument, doc As NotesDocument) As NotesUIDocument

On Error Goto errortrap

Dim strFieldname As String

Dim wksp As New NotesUIWorkspace

strFieldname = uidoc.CurrentField ' remember current field if any

doc.SaveOptions = "0" ' make it possible to close the document

' without a "do you want to save" prompt.

Call uidoc.Close(True)

Set RedisplayDoc = wksp.EditDocument(True, doc, , , , True)

Delete uidoc

RedisplayDoc.Document.RemoveItem("SaveOptions")

If strFieldname <> "" Then RedisplayDoc.GotoField(strFieldname)

' return focus to field that was current before.

Exit Function

errortrap:

Error Err, Error & " //RedisplayDoc:" & Erl

End Function

3Daniel Nashed  12.03.2023 23:00:02  Notes UIDoc reopen without saving the underlying document

Hi Andre!

Thanks, for this great addition.

The command in general is already quite helpful and I was surprised about this sulution.

But it really helpful. I have used it in two databases already.

-- Daniel