Manage Learn to apply best practices and optimize your operations.

Validating RTF field for attachments/text before saving the document

This function is used to validate the RTF for attachments/Embedded objects/Any text before the document is being saved.

This function is used to validate the RTF for attachments/Embedded objects/Any text before the document is being saved.

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	
	On Error Goto Err_Handler	
	
	Call Source.GoToField("RTF")
	Call Source.SelectAll
	Call Source.Copy
'When the RTF field is empty and Copy command is executed on the field, Notes 
generates an error Call Source.DeselectAll Exit Sub Err_Handler: If Err=4407 Then Msgbox "RTF field is empty", 48, "Validation Error" Continue=False Resume GoToExit End If GoToExit: End Sub
This was last published in March 2002

Dig Deeper on Domino Resources - Part 5

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

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