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 first published in March 2002

Dig deeper on Domino Resources - Part 5

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

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 ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close