Exception error with date/time (Access 2000)

I am picking up a strange exception error for the following statement:

If Rs.EOF OR DATEDIFF("d",rs("DateTime"),NOW()) Then
'//
End If

Is there something wrong with my function

[Bob Barrows [MVP]]

[email]jason@catamaranco.com[/email] wrote:

> I am picking up a strange exception error for the following statement:
>
> If Rs.EOF OR DATEDIFF("d",rs("DateTime"),NOW()) Then
> '//
> End If
>
> Is there something wrong with my function

Two things:
1. Datediff returns a number, not a boolean. While it won't cause an error,
it's more correct (and less confusing) to use
DATEDIFF("d",rs("DateTime"),NOW()) = 0

2. vbscript does not do short-circuit (lazy) evaluation. Both boolean
operands will be evaluated. If EOF is true, then the datediff will throw an
error. You have to nest them:

if not rs.eof then
if DATEDIFF("d",rs("DateTime"),NOW()) = 0 then
end if
else
end if

[url]http://blogs.msdn.com/ericlippert/archive/2004/07/15/184431.aspx[/url]

Bob Barrows
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

Thanks Bob....testing as we speak and also reading that cool blog along the
way!

- Jason
"Bob Barrows [MVP]" <reb01501@NOyahoo.SPAMcom> wrote in message
news:%23zHADdPeEHA.3680@TK2MSFTNGP11.phx.gbl...

> [email]jason@catamaranco.com[/email] wrote:

> > I am picking up a strange exception error for the following statement:
> >
> > If Rs.EOF OR DATEDIFF("d",rs("DateTime"),NOW()) Then
> > '//
> > End If
> >
> > Is there something wrong with my function

> Two things:
> 1. Datediff returns a number, not a boolean. While it won't cause an

error,

> it's more correct (and less confusing) to use
> DATEDIFF("d",rs("DateTime"),NOW()) = 0
>
> 2. vbscript does not do short-circuit (lazy) evaluation. Both boolean
> operands will be evaluated. If EOF is true, then the datediff will throw

an

> error. You have to nest them:
>
> if not rs.eof then
> if DATEDIFF("d",rs("DateTime"),NOW()) = 0 then
> end if
> else
> end if
>
> [url]http://blogs.msdn.com/ericlippert/archive/2004/07/15/184431.aspx[/url]
>
> Bob Barrows
> --
> Microsoft MVP - ASP/ASP.NET
> Please reply to the newsgroup. This email account is my spam trap so I
> don't check it very often. If you must reply off-line, then remove the
> "NO SPAM"
>
>