By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
than from the menu, so that you can do some other processing from the button.
In (declarations) create a global variable for the form:
Dim buttonClickedFlag as Integer
In QueryOpen, you'd want the flag to default to false:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant,
Continue As Variant)
buttonClickedFlag = False
In the button code, set the flag to true, along with whatever else you want to
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
buttonClickedFlag = True
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
If Not ( source.EditMode ) And buttonClickedFlag = False Then
Messagebox("Please use the Edit button to modify this form.")
continue = False