Have field on a form populate with the 1st date of the month

I have a field on a form that is a date field.  If the record is a new record I want the date to populate with the first DATE of the month.  So if today is 4/2/2015 I want the field to populate with 4/1/2015.

How can I do this?
SteveL13Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rey Obrero (Capricorn1)Commented:
if me.newrecord then
   me.txtDate=dateserial(Year(Date()),Month(date()),1)

end if

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
SteveL13Author Commented:
Perfect.  Thanks.  Now on to another topic named "How populate date field based on another date field"
James BaileyProject PlannerCommented:
The proposed solution shown above is perfectly wonderful.

If you like choices,  here's another good idea.

In the table to which the form is bound, go to the Default Value property for the date field.
Enter the following:
Format ( Date (), "mm/01/yyyy")

Open in new window

This alternative requires no code and it is reliable.

This is a good choice only if you always want the Default Value set for every new record, in the table in every case without exception.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.