them and handle them intelligently. In the following script which I have
written in the query save event of the form, I try and save the notesdocument
instance of the current document using parameters False, False, so as not to
force the save. This will return false if the document has been saved in the
background. Then I am refreshing the view from which the document was opened so
that when I close the document I get the refreshed view. Also I am setting
saveoptions as 0 so as not to save this document.
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim doc As notesdocument
Set doc=source.document
If Not doc.Save(False, False) Then
Messagebox "You cannot save this document as it has been saved by some other
user in background.",,"Warning"
Print "Please wait..."
Dim ws As New notesuiworkspace
Dim view As notesview
Set view=currdb.getview("AE View")
Call view.refresh()
Call ws.Viewrefresh()
Print ""
doc.SaveOptions="0"
Exit Sub
End If
End Sub
Requires Free Membership to View
Register today to access targeted resources from our editorial writers and independent industry experts focused on Lotus Domino, Notes, Workplace and other related technologies.
This was first published in November 2000