Prev: Access 2K7 - Showing TIF files in a form via VBA code
Next: textbox and combobox
From: Peter on 12 Mar 2010 10:17
Hi all, I have this issue with calculating dates..

In the Open Form event I want to create a message:
If the value between Today () and the date in the control [Expire] equals or
is less than 90 days?

Thanks!

From: RonaldoOneNil on 12 Mar 2010 10:39
If datediff("d",date(),[Expire]) <=90 then
Msgbox "Due to expire message . . "
End If

"Peter" wrote:

> Hi all, I have this issue with calculating dates..
>
> In the Open Form event I want to create a message:
> If the value between Today () and the date in the control [Expire] equals or
> is less than 90 days?
>
> Thanks!
>
From: Peter on 12 Mar 2010 10:44
Thanks a lot Ronaldo!

"RonaldoOneNil" wrote:

> If datediff("d",date(),[Expire]) <=90 then
> Msgbox "Due to expire message . . "
> End If
>
> "Peter" wrote:
>
> > Hi all, I have this issue with calculating dates..
> >
> > In the Open Form event I want to create a message:
> > If the value between Today () and the date in the control [Expire] equals or
> > is less than 90 days?
> >
> > Thanks!
> >
From: Peter on 12 Mar 2010 16:28
... i tried this in Access 2007..but..seems the date() does not function

If datediff("d",date(),[Expire]) <=90 then,,,

???

"RonaldoOneNil" wrote:

> If datediff("d",date(),[Expire]) <=90 then
> Msgbox "Due to expire message . . "
> End If
>
> "Peter" wrote:
>
> > Hi all, I have this issue with calculating dates..
> >
> > In the Open Form event I want to create a message:
> > If the value between Today () and the date in the control [Expire] equals or
> > is less than 90 days?
> >
> > Thanks!
> >
From: Bob Quintal on 12 Mar 2010 18:17
=?Utf-8?B?UGV0ZXI=?= <Peter(a)discussions.microsoft.com> wrote in
news:B5FF6360-1029-41F6-8ECD-DB466334F046(a)microsoft.com:

> .. i tried this in Access 2007..but..seems the date() does not
> function
>
> If datediff("d",date(),[Expire]) <=90 then,,,
>
> ???

The Form_Open event is too early in the process for the code to work,
try moving it to the Form_Current event.

You may also have a references issue with the date() function, Google
for that, and/or try the now() function which is date() plus time()

Q
>
> "RonaldoOneNil" wrote:
>
>> If datediff("d",date(),[Expire]) <=90 then
>> Msgbox "Due to expire message . . "
>> End If
>>
>> "Peter" wrote:
>>
>> > Hi all, I have this issue with calculating dates..
>> >
>> > In the Open Form event I want to create a message:
>> > If the value between Today () and the date in the control
>> > [Expire] equals or is less than 90 days?
>> >
>> > Thanks!
>> >
>



--
Bob Quintal

PA is y I've altered my email address.
 |  Next  |  Last
Pages: 1 2
Prev: Access 2K7 - Showing TIF files in a form via VBA code
Next: textbox and combobox