Examples: QueryModeChange event
- This script prevents the user from switching to Edit mode and
displays a message informing the user that the document cannot be
edited.
Sub Querymodechange(Source As Notesuidocument, _
Continue As Variant)
If Not ( source.EditMode ) Then
Messagebox( _
"Sorry, the text you wrote can't be edited.")
continue = False
End If
End Sub
- This script checks whether the user is switching from Read mode
to Edit mode. If so, and if the Status field reads "Closed," the script
displays a message and prevents the user from switching to Edit mode.
Sub Querymodechange(Source As Notesuidocument, _
Continue As Variant)
If Not ( source.EditMode ) Then
currentStatus = source.FieldGetText( "Status" )
If ( currentStatus = "Closed" ) Then
Messagebox _
( "Document available for browsing only." )
continue = False
End If
End If
End Sub
Have feedback?
Google Analytics is used to store comments and ratings. To provide a comment or rating for a topic, click Accept All Cookies or Allow All in Cookie Preferences in the footer of this page.