I have a database and in the QuerySave I have the following code to make sure a Rich Text Field is filled in before the document can be saved and closed:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Set doc = Source.Document
Call Source.Refresh(True)
Set rtitem = doc.GetFirstItem("ConceptForm_RT")
If Source.FieldGetText("ConceptForm_RT") = "" And Isempty(rtitem.EmbeddedObjects) Then
Continue = False
Messagebox "The field 'ConceptForm' is Empty"
Call Source.GotoField ("ConceptForm_RT")
End If
End Sub
I would like to also check that a Signer computer field is filled in as well or the document will not be saved.
Can somebody help me out?
Thank you in advance.