LOTUSSCRIPT/COM/OLE CLASSES
Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim lastEvent As String lastEvent = source.FieldGetText( "LatestEvent" ) Call source.FieldAppendText( "History", "---" ) Call source.FieldAppendText( "History", lastEvent ) Call source.FieldClear( "LatestEvent" ) End Sub
After the document has been edited and saved three times, the History field might look like this:
---Aerial photographs of deforestation published---Government reacts---Public protests began today
See Also