WITH THIS IF NOT EMPTY(.CONTROLSOURCE) LOCAL cDay, cMonth, cYear, dDate, cField, cTable, cDay = ALLTRIM(STR(THIS.DAY)) cMnth = ALLTRIM(STR(THIS.MONTH)) cYear = ALLTRIM(STR(THIS.YEAR)) cDate = cMnth + '/' + cDay + '/' + cYear dDate = CTOD(cDate) cField = JUSTEXT(.CONTROLSOURCE) cTable = JUSTSTEM(.CONTROLSOURCE) REPLACE (cField) WITH dDate IN (cTable) ENDIF ENDWITHhth