Mike,
You can do both things this way:
with evaluate("Thisform.ResultLine"+ALLTRIM(This.Tag)+".txtPatientNotes")
.Value = ALLTRIM(This.Value) + EVALUATE(ALLTRIM("ThisForm.ResultLine"+ALLTRIM(This.tag)+".txtPatientNotes.Value"))
.SetFocus()
endwithYou can replace all the strings more readable
lcName = "Thisform.ResultLine"+ALLTRIM(This.Tag)+".txtPatientNotes"
with evaluate(lcName)
.Value = alltrim(this.Value) + alltrim(.Value)
.SetFocus()
endwith
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
