Date criteria with any day

#1 (**permalink**) 28-Jul-2006, 08:39 AM

Hello,

I'm looking to open a report using a line of code like this:

DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
"tblGages.LastCalib = #" & Month & "/1/" & Year &
"#"

where Month and Year hold numeric values entered by the user. I have
the "1" there right now as a temporary character. I'm looking to make
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/13695-date-criteria-with-any-day.html
it so the criteria uses that Month and Year value, but works for any
day. I thought of some solutions but ran into the problem that some
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13695
months have 29, some 30, some 31, days.

Thanks for any help.

#2 (**permalink**) 28-Jul-2006, 08:39 AM

DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
"(Month(tblGages.LastCalib) = " & Month & "and
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13695
year(tblGages.LastCalib) = & Year &")"

"Garret" wrote:

> Hello,
>
> I'm looking to open a report using a line of code like this:
>
> DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
> "tblGages.LastCalib = #" & Month & "/1/" & Year &
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13695
> "#"
>
> where Month and Year hold numeric values entered by the user. I have
> the "1" there right now as a temporary character. I'm looking to make
> it so the criteria uses that Month and Year value, but works for any
> day. I thought of some solutions but ran into the problem that some
> months have 29, some 30, some 31, days.
>
> Thanks for any help.
>
>

#3 (**permalink**) 28-Jul-2006, 08:39 AM

Thanks, it was just what I wanted. I ended up using this statement:

DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
"(Month(tblGages.LastCalib) = " & Month & _
"and Year(tblGages.LastCalib) = " & Year & ")"
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13695
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13695

It turns out that you left out some quotation marks. Thanks bunches
though!

schasteen wrote:
> DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
> "(Month(tblGages.LastCalib) = " & Month & "and
> year(tblGages.LastCalib) = & Year &")"
>

#4 (**permalink**) 28-Jul-2006, 08:39 AM

Sorry , sometimes my typing get ahead of my brain.

"Garret" wrote:

Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13695
> Thanks, it was just what I wanted. I ended up using this statement:
>
> DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13695
> "(Month(tblGages.LastCalib) = " & Month & _
> "and Year(tblGages.LastCalib) = " & Year & ")"
>
> It turns out that you left out some quotation marks. Thanks bunches
> though!
>
> schasteen wrote:
> > DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
> > "(Month(tblGages.LastCalib) = " & Month & "and
> > year(tblGages.LastCalib) = & Year &")"
> >
>
>