I doubt you can do it directly. You can put code in the refresh to:

This.Value = TTOD(Table.field)

and then in the valid, or wherever works best for you,

Local llOk
llOk = .T.
IF !EMPTY(DTOC(this.Value))   && valid date?
   IF this.Value <> TTOD(table.field)   && changed?
      replace table.field WITH DTOT(this.Value)
   Endif
Else
   llOk = .F.
   MessageBox('Invalid date')
ENDIF

Return llOk

>Does anyone know if it is possible to limit a textbox to only display and allow editing of the date portion of a datatime field?
>
>Thanks, BOb