Hi there. I'm trying to find a current pay period. The following query
tells me I am missing an operator.
What am I doing wrong here?

Thanks!
-- Public Function CurrPer()
Dim bytCurrPer As Byte
Dim rs As DAO.Recordset
Dim db As DAO.Database

Set db = CurrentDb

Set rs = db.OpenRecordset("SELECT dat2005 " _
& "From tblPer05 Where dat2005 " _
& ">Date() And <Date()+7", dbOpenSnapshot)

bytCurrPer = rs("dat2005")
End Function

www.brightfuture.ca/bright
My email address can be found on my site.

Normally you would want to return a value from a function but yours doesn't.
Since you aren't using any variables, you could probably use a single
expression like:
=DLookup("dat2005","tblPer05","dat2005 > Date() AND dat2005 < Date()+7")

--
Duane Hookom
MS Access MVP


"Johnny Bright" <(E-Mail Removed)> wrote in message
news:C7EB3162-5893-494A-B0E9-(E-Mail Removed)...
> Hi there. I'm trying to find a current pay period. The following query
> tells me I am missing an operator.
> What am I doing wrong here?
>
> Thanks!
> -- Public Function CurrPer()
> Dim bytCurrPer As Byte
> Dim rs As DAO.Recordset
> Dim db As DAO.Database
>
> Set db = CurrentDb
>
> Set rs = db.OpenRecordset("SELECT dat2005 " _
> & "From tblPer05 Where dat2005 " _
> & ">Date() And <Date()+7", dbOpenSnapshot)
>
> bytCurrPer = rs("dat2005")
> End Function
>
> www.brightfuture.ca/bright
> My email address can be found on my site.

Your SELECT statement needs to read:
"SELECT dat2005 From tblPer05 Where dat2005 >Date() And dat2005<Date()+7;

The 2nd dat2005 needs to be added before the <Date()+7
--
Andrea

"

> & ">Date() And <Date()+7", dbOpenSnapshot)

While this is readable to a human, the computer insists on you specifying
both sides of the operator.

& ">Date() And dat2005<Date()+7", dbOpenSnapshot)

--
Wayne Morgan
MS Access MVP


"Johnny Bright" <(E-Mail Removed)> wrote in message
news:C7EB3162-5893-494A-B0E9-(E-Mail Removed)...
> Hi there. I'm trying to find a current pay period. The following query
> tells me I am missing an operator.
> What am I doing wrong here?
>
> Thanks!
> -- Public Function CurrPer()
> Dim bytCurrPer As Byte
> Dim rs As DAO.Recordset
> Dim db As DAO.Database
>
> Set db = CurrentDb
>
> Set rs = db.OpenRecordset("SELECT dat2005 " _
> & "From tblPer05 Where dat2005 " _
> & ">Date() And <Date()+7", dbOpenSnapshot)
>
> bytCurrPer = rs("dat2005")
> End Function
>
> www.brightfuture.ca/bright
> My email address can be found on my site.

Cool! That worked great! Thanks to all of you who replied to this posting.
You guys rock!
--
www.brightfuture.ca/bright
My email address can be found on my site.


"Wayne Morgan" wrote:

> > & ">Date() And <Date()+7", dbOpenSnapshot)
>
> While this is readable to a human, the computer insists on you specifying
> both sides of the operator.
>
> & ">Date() And dat2005<Date()+7", dbOpenSnapshot)
>
> --
> Wayne Morgan
> MS Access MVP
>
>
> "Johnny Bright" <(E-Mail Removed)> wrote in message
> news:C7EB3162-5893-494A-B0E9-(E-Mail Removed)...
> > Hi there. I'm trying to find a current pay period. The following query
> > tells me I am missing an operator.
> > What am I doing wrong here?
> >
> > Thanks!
> > -- Public Function CurrPer()
> > Dim bytCurrPer As Byte
> > Dim rs As DAO.Recordset
> > Dim db As DAO.Database
> >
> > Set db = CurrentDb
> >
> > Set rs = db.OpenRecordset("SELECT dat2005 " _
> > & "From tblPer05 Where dat2005 " _
> > & ">Date() And <Date()+7", dbOpenSnapshot)
> >
> > bytCurrPer = rs("dat2005")
> > End Function
> >
> > www.brightfuture.ca/bright
> > My email address can be found on my site.
>
>
>