Force Use Of Edit Button

Here's a way to force the user to edit a document using an edit button, rather
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
End Sub

In the button code, set the flag to true, along with whatever else you want to
do:

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
buttonClickedFlag = True
...
Call workspace.EditDocument(True)
End Sub

In QueryModeChange,

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
End If
End Sub
This was first published in November 2000

Dig deeper on Domino Resources - Part 7

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close