LOCAL cWorkArea, cField m.cWorkArea = JUSTSTEM(THIS.cControlSource) m.cField = JUSTEXT(THIS.cControlSource) REPLACE (m.cField) WITH THIS.VALUE IN (m.cWorkArea)