Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Date criteria with any day

Discussion in 'Information Technology' started by Garret, Jul 28, 2006.

Tags:
  1. Garret

    Garret
    Expand Collapse
    Guest

    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
    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.
     
  2. Loading...


  3. schasteen

    schasteen
    Expand Collapse
    Guest

    DoCmd.OpenReport "rptMontlyCalibration", acViewPreview, , _
    "(Month(tblGages.LastCalib) = " & Month & "and
    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 &
    > "#"
    >
    > 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.
    >
    >
     
  4. Garret

    Garret
    Expand Collapse
    Guest

    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 & ")"

    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 &")"
    >
     
  5. schasteen

    schasteen
    Expand Collapse
    Guest

    Sorry , sometimes my typing get ahead of my brain.

    "Garret" wrote:

    > 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 & ")"
    >
    > 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 &")"
    > >

    >
    >
     

Share This Page