LOTUSSCRIPT/COM/OLE CLASSES

Examples: Clear method
This script deletes the contents of the current field. If the current field is empty, it does nothing.

Sub Click(Source As Button)
 Dim workspace As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = workspace.CurrentDocument
 If ( uidoc.FieldGetText( uidoc.CurrentField ) <> "" ) Then
   Call uidoc.SelectAll
   Call uidoc.Clear
 End If
End Sub

See Also