?I have a form to collect the date range of a report. It contains a
[startdate] control and an [enddate] control. I would like to default to a
year to date (YTD) report. My default enddate is Date(). To create a
startdate, I use the YEAR function to get the current year, then build the
string #1/1/2011#. I want this as my default startdate. I have a module
with a public function named YearStart(). The string variable I built is
named DayOne. I set the default property of startdate to YearStart(DayOne).
The control displays #Name? when I open the form. Can you tell me what I'm
doing wrong, or if there is a better way to set the default to 1/1/yyyy?
Thanks,
Mike from Moriches

?Thank you! Your solution works perfectly. I'm not skilled enough to to
create that expression.
Mike from Moriches

"Marshall Barton" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Mike from Moriches wrote:
>
>>?I have a form to collect the date range of a report. It contains a
>>[startdate] control and an [enddate] control. I would like to default to
>>a
>>year to date (YTD) report. My default enddate is Date(). To create a
>>startdate, I use the YEAR function to get the current year, then build the
>>string #1/1/2011#. I want this as my default startdate. I have a module
>>with a public function named YearStart(). The string variable I built is
>>named DayOne. I set the default property of startdate to
>>YearStart(DayOne).
>>The control displays #Name? when I open the form. Can you tell me what I'm
>>doing wrong, or if there is a better way to set the default to 1/1/yyyy?
>
>
> I don't know what your function looks like, but I think the
> problem is that VBA variables can only be used in VBA
> procedures. They are totally unknown anywhere else.
>
> On the other hand, you can use a public, standard module VBA
> function almost everywhere in Access.
>
> Based on that, I think your function could look something
> like:
>
> Public Function YearStart()
> YearStart = DateSerial(Year(Date()), 1, 1)
> End Function
>
> And the DefaultValue can use that:
> =YearStart()
>
> But why create a one line function that only calls another
> function. Instead, you could just set the DefaultVakue
> property to:
> =DateSerial(Year(Date()), 1, 1)
>
> --
> Marsh
> MVP [MS Access]

On Sun, 6 Feb 2011 09:49:27 -0500, "Mike from Moriches"
<(E-Mail Removed)> wrote:

>?I have a form to collect the date range of a report. It contains a
>[startdate] control and an [enddate] control. I would like to default to a
>year to date (YTD) report. My default enddate is Date(). To create a
>startdate, I use the YEAR function to get the current year, then build the
>string #1/1/2011#. I want this as my default startdate. I have a module
>with a public function named YearStart(). The string variable I built is
>named DayOne. I set the default property of startdate to YearStart(DayOne).
>The control displays #Name? when I open the form. Can you tell me what I'm
>doing wrong, or if there is a better way to set the default to 1/1/yyyy?
>Thanks,
>Mike from Moriches

The simplest way would be to set the textbox's default value to

=DateSerial(Year(Date()), 1, 1)

--

John W. Vinson [MVP]
Microsoft's replacements for these newsgroups:
http://social.msdn.microsoft.com/For...-US/accessdev/
http://social.answers.microsoft.com/.../en-US/addbuz/
and see also http://www.utteraccess.com