I’m trying to set the text in a field named “TgtLog” with a variable named NewHistory. NewHistory just concatenates another variable named ReviewHistory with the username and today’s date.
I need to add a carriage return between the variable ReviewHistory and the username and date. Isn’t this what chr(13) is for?
Sub Onchange(Source As Field)
Dim ws As New NotesUIWorkspace
Dim Session As New NotesSession
Dim uidoc As NotesUIDocument
Dim Doc As Notesdocument
Dim ReviewHistory As Variant
Dim NewHistory As Variant
Set uidoc = ws.CurrentDocument
Set doc=uidoc.Document
ReviewHistory=Doc.GetItemValue("TgtLog")
NewHistory=ReviewHistory(0) & Chr(13) & Session.CommonUserName & " on " & Today
Call uidoc.FieldSetText("TgtLog", NewHistory)
Call uidoc.refresh