Manage Learn to apply best practices and optimize your operations.

Validating A Richtext Field Before Saving The Document

This script can be used to validate a richtext field. The validation will be
fired only if there are no attachments and as well as no text.
Write this scrip in the QuerySave event of the form


'Body is the name of the Rich Text field
On Error Goto ErrSub

Call source.GoToField("Body")
Call source.SelectAll
Call source.copy
Call source.DeselectAll
Goto OkExit

'This error number will be generated when you
'try to copy the content of the empty field

ErrSub:
If Err = 4407 Then
Continue=False
Msgbox "Please enter values for the body field",48,"Error"
Exit Sub
End If
Resume OkExit
OkExit:

Dig Deeper on Domino Resources - Part 4

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close