To prevent user from using File -> Save

Tuesday, March 18, 2008



Add this code in Query Save of the Form
Create Hidden Field : ActionType
Text/Editable
Objective: To prevent user from using File -> Save. User need to click on Save button and Form status can be set to eg. "Draft" / "New"

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Set uidoc = source
Set note= uidoc.document
If note.ActionType(0) <> "SAVE" Then
Messagebox "You must click on the appropriate button to save the document automatically", 0, "Information"
Continue = False
Exit Sub
End If
End Sub

0 comments: