Input validation for rich text fields

Insert the script into the Querysave event for the form.
LotusScript

Sub Querysave(Source As Notesuidocument, Continue As Variant)
     
     Dim doc As notesdocument
     Set doc = source.document
     If ( source.FieldGetText( "richtextfield" ) = "" ) Then
          Messagebox "Please enter the Summary.", 0 + 16,"Field Contains Incorrect Value"
          Call source.GotoField( "richtextfield" )
          continue = False 
     End If 
     
End Sub

Posted by fbrefere001 on Sunday May 13, 2001