Inserting todays date in a bound textbox

[mrdata]

I have a command button that adds a new record to the database and textboxes for the data entry on a form.

The first text box is for the date I would like to have this automaticly fill in with todays date when the command button is pressed.

So far I cannot get this to work at all will someone please help.

I tried
Dim Mydate
Mydate = Date
Me.Datetext= Mydate

But I get nothing !

Help please.

Thanks Charles

 

[Rich]

Just set the DefaultValue to Date() on the property sheet

 

[mrdata]

Insert Todays Date

Rich:

Works great man Thanks

Charles