LOTUSSCRIPT/COM/OLE CLASSES
%INCLUDE "lsconst.lss"
Sub Queryrecalc(Source As Notesuidocument, _ Continue As Variant) Dim answer As Integer If Source.EditMode Then answer = Messagebox _ ("Do you want to recalculate the document at this time?", _ MB_YESNO, "Recalculate?") If (answer <> IDYES) Then Continue = False End If End If End Sub
See Also