>CASE (CTOD(THIS.VALUE) > DATE()) > MESSAGEBOX("Error in Date: Greater than current date.",16) > THIS.SetFocus > nodefault >endcase >