>Yep thats it if I have no record in table they dont work but as soon as I enter a record in the table it works. How can I get around that?

Change the logic if you have no records in table Don't enable this box, or if you want to enable it:

*** Button Click
IF RECCOUNT("YourTable") == 0
   thisform.....Date.ControlSource = NULL
ENDIF
thisform.....Date.Enable = .t.

*** In LostFocus of the Control

IF ISNULL(this.ControlSource) AND NOT EMPTY(this.Value) && Or whatever checks you need
   INSERT INTO YourTable (Field List Here) VALUES (values for that fieldlist)
   leValue            = this.Value
   this.ControlSource = "YourTable.YourField"
   this.Value         = leValue
ENDIF