Afternoon all,
I have a document which is displayed in a frameset on the notes client. I have a button (labelled “Save”) on the form with the formula @Command([FileSave]).
When the button is pressed some lotusscript in the forms QuerySave event is fired to check that a value has been entered in a multivalue field named “codeCategory”. If the field is blank a hidden field on the form named “SaveOptions” is set to “0” thus not saving the document and suppressing the save dialogbox if the form is then closed.
The problem is that the QuerySave event does not appear to be firing. I have included my QuerySave event code below.
Can anyone help?
Thanks in advance,
B.
Sub Querysend(Source As Notesuidocument, Continue As Variant)
Dim currentDoc As NotesDocument
Dim item As NotesItem
Set currentDoc = Source.Document
Set Item = currentDoc.GetFirstItem("codeCategories")
If (Item.Values = "") Then
currentDoc.SaveOptions = 0
Continue = False
Else
currentDoc.SaveOptions = 1
End If
Set Item = Nothing
Set currentDoc = Nothing
End Sub