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