Access Date

[misys]

gone blank, I have a form that feeds a query etc. with dates a begin date and an end date. I wish to have the begin date to default to the first day of the current month. I have the end date as =Now() which works fine returning a date of today. Can someone give me the function to go in the default line?

Thanks

misys

 

[raskew]

From the debug window:

dteMyDate = date()
? dteMyDate
6/24/02
firstDayOfMonth = DateSerial(Year(dteMyDate),Month(dteMyDate),1)
? firstDayOfMonth
6/1/02