I am trying to warn the user when they post-date the date entered in my grid. In addition to the warning, I want to blank out the date. I've put the following in the VALID EVENT of the text box:

IF This.value > DATE() AND NOT EMPTY(This.Value)
=MESSAGEBOX("Tou may NOT Post-Date Submittals!"+CHR(13)+"Verify date is today's - or blank - date.",16+0,"Warning")
This.Value = {//}
RETURN .F.
ENDIF

It all works - EXCEPT THE ENTERED DATE IS NOT BLANKED! What might I be doing wrong?

TIA