TTOD(field)For readwrite:
use a datetime ActiveX ( slow ) or Implement a textbox class with: dataSource = '' && write your controlsource field here ControlSource = this.dataSource PROCEDURE dataSource_Access RETURN TTOD(EVAL(m.this.dataSource)) ENDPROC PROCEDURE dataSource_Assign LPARAMETER newValue STORE DTOT(m.newValue) TO (m.this.dataSource) ENDPROCFabio