* GotFocus this.Comment = m.this.Controlsource this.Controlsource = '' this.Value = m.this.Text this.Tag = m.this.Value * interactive change code IF VARTYPE(CTOD(STUFF(m.this.Value,4,3,STR(ATC(SUBSTR(m.this.Value,4,3)," JENFEBMARAPRMAY...")/3,2))))=="D" this.Tag = m.this.Value ELSE this.Value = m.This.Tag ENDIF * Valid vValue = CTOD(STUFF(m.this.Value,4,3,STR(ATC(SUBSTR(m.this.Value,4,3)," JENFEBMARAPRMAY...")/3,2))) this.Controlsource = m.this.Comment this.Value = m.vValueBut write a gridable control binded to a true field date is possible, but it is very hard.