Validating Attachment in Richtext field

HCL Domino Domino Forum
1

Hi Folk,I am using below code to validate the Attachment in Richtext field.

If I will not used Call source.Refresh(True)

then validation is not working, but this code is also refreshing document everytime querysave is called in buttons.

So is there any option or any other idea so that I should not user this Refresh part or entire code to validate .

If anybody have more efficient code then please share this .

If Source.Document.YesNo20(0)="Yes" Then

	Call source.Refresh(True)

	Dim rtitem As NotesRichTextItem

	Set rtitem = source.Document.GetFirstItem( "Atchmnt20" ) 

	NotesEmbeddedObjectArray = rtitem.EmbeddedObjects

	If Isempty ( NotesEmbeddedObjectArray ) Then 

		Messagebox "Please enter an attachment in 20a. As you selected option Yes"

		continue=False

		Exit Sub

	End If 

End If

Any help will be appreciable

Thank you.