Syntax for previous year with DateSerial

[Susan L]

To create a report for December of the previous year, I need to reset a
"Start Date" on a form to the previous January for a cumulative report. I've
been able to change other code using Year(Date))-1, but am stumped on this
one, because for all months other than December, my current code works.

Here's what I've tried that does not work: There's a syntax error on the
first line, but I'm not sure about the second.

If(DateSerial(Year(Date()), 1, 1) Then
[Forms]![frm_Export_Metrics]![StartDate] = DateSerial(Year(Date) -
1, 12, 1)
'Resets Start Date on Export Metrics form to 1/1/yyyy
Else: [Forms]![frm_Export_Metrics]![StartDate] =
DateSerial(Year(Date), 1, 1)
End If
Any suggestions?

 

[Douglas J. Steele]

DateSerial(Year(Date()), 1, 1) will always be true, so I don't understand
what your If statement is supposed to do.

How can you tell that it's a report for December of the previous year?

 

[Susan L]

Here is the logic of what I want:
If the date is January (of any year), reset [StartDate] on the form to
January 1 of the previous year.
Otherwise, reset [StartDate] to January 1 of the current year.

We always run reports on the fifth business day following the month being
reported, so January's report will be run in February.

I hope this clarifies.
--
susan

DateSerial(Year(Date()), 1, 1) will always be true, so I don't understand
what your If statement is supposed to do.

How can you tell that it's a report for December of the previous year?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

To create a report for December of the previous year, I need to reset a
"Start Date" on a form to the previous January for a cumulative report.
I've
been able to change other code using Year(Date))-1, but am stumped on this
one, because for all months other than December, my current code works.

Here's what I've tried that does not work: There's a syntax error on the
first line, but I'm not sure about the second.

If(DateSerial(Year(Date()), 1, 1) Then
[Forms]![frm_Export_Metrics]![StartDate] = DateSerial(Year(Date) -
1, 12, 1)
'Resets Start Date on Export Metrics form to 1/1/yyyy
Else: [Forms]![frm_Export_Metrics]![StartDate] =
DateSerial(Year(Date), 1, 1)
End If
Any suggestions?

 

[Douglas J. Steele]

If Month(Date()) = 1 Then
[Forms]![frm_Export_Metrics]![StartDate] = _
DateSerial(Year(Date) - 1, 1, 1)
Else
[Forms]![frm_Export_Metrics]![StartDate] = _
DateSerial(Year(Date), 1, 1)
End If

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Here is the logic of what I want:
If the date is January (of any year), reset [StartDate] on the form to
January 1 of the previous year.
Otherwise, reset [StartDate] to January 1 of the current year.

We always run reports on the fifth business day following the month being
reported, so January's report will be run in February.

I hope this clarifies.
--
susan

DateSerial(Year(Date()), 1, 1) will always be true, so I don't understand
what your If statement is supposed to do.

How can you tell that it's a report for December of the previous year?

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

To create a report for December of the previous year, I need to reset a
"Start Date" on a form to the previous January for a cumulative report.
I've
been able to change other code using Year(Date))-1, but am stumped on
this
one, because for all months other than December, my current code works.

Here's what I've tried that does not work: There's a syntax error on
the
first line, but I'm not sure about the second.

If(DateSerial(Year(Date()), 1, 1) Then
[Forms]![frm_Export_Metrics]![StartDate] =
DateSerial(Year(Date) -
1, 12, 1)
'Resets Start Date on Export Metrics form to 1/1/yyyy
Else: [Forms]![frm_Export_Metrics]![StartDate] =
DateSerial(Year(Date), 1, 1)
End If
Any suggestions?