LOTUSSCRIPT/COM/OLE CLASSES
Examples: QueryModeChange event
1. 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
2. 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
Véase también
QueryModeChange event
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario