I am using the code shown below in the AfterUpdate event of a text box to remove empty lines, but all of the carriage returns are deleted. I want to eliminate the empty lines in a text box because I use paragraph styles in another app to control the space between paragraphs. Please help. Here are examples of what happens.
Author = Replace([Author], Chr(10), "")
Author = Replace([Author], Chr(13), "")
After AfterUpdate event runs:
line 1line 2
Are your examples correct?