我正在使用下面的代码来验证富文本字段中的附件。
如果我不使用 Call source.Refresh(True) 则验证不起作用,但是每次在按钮中调用 querysave 时,此代码也会刷新文档。
那么是否有任何选项或任何其他想法,以便我不应该使用此 Refresh 部分或整个代码来验证。
如果有人有更有效的代码,请分享。
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