I have the following code, which I am attempting to use to append a required input from the user to the contents of my “Notes” field:
While sAnswer = "" 'Force the user to enter something for a reason for rejecting a data set. sAnswer = InputBox("What is the reason for rejecting the data set?", "Question:") sAppend = " - " & sAnswer Wend msgBox sAppend oDB = thisdatabasedocument.CurrentController.ActiveConnection msgBox "UPDATE MEASUREMENTDATA SET ACCEPTED = FALSE, NOTES = NOTES + " & sAppend & " WHERE ID = " & iMeasData
The first msgbox always shows what I would expect, but the second one has a line break at the first space in the entry into the input box.