Expiration Date Pop up

[Pat]

The database I am working with requires a Pop Up message to be
displayed 30 days prior to the expiration date field [Cont_End]. How
would I set this up so when the database is opened this message appears
and links to a list of all the records that meet the requirments?? And
when the record is updated it is removed from this list.

The field title is [Cont_End]

 

[fredg]

The database I am working with requires a Pop Up message to be
displayed 30 days prior to the expiration date field [Cont_End]. How
would I set this up so when the database is opened this message appears
and links to a list of all the records that meet the requirments?? And
when the record is updated it is removed from this list.

The field title is [Cont_End]

When the database opens?
Just exactly 30 days?
Create a query that shows all records.
As criteria, write on the Criteria line for the [Cont_End] field:
Date()-30

Create a form using this query as record source. Form Default View
Continuous view.
Add a label to the Form Header "These come due in 30 days."

Code this form's Close event:
DoCmd.OpenForm "Switchboard or whatever Form you want to see"

Click on Tools + StartUp
Set this form in the Display Form/Page drop-down box.

when the database is first opened, it will display any records that
expire in exactly 30 days. When you close this form, your next form
will open.

If you want to show records that come due within 30 days (which would
be wiser, as otherwise you may miss records because you did not open
the Database on a Saturday, Sunday or Holiday), write, as criteria in
the query:
Between Date() and Date()-30

 

[Guest]

Create a macro named Autoexec to run a select query of items due in 30 days
oy less.

 

[Pat]

Thanks that worked very well.

 

[Abdelnassir]

Hi All,

In regard to the article (Expiration Date Pop up) can I have the codes please?
Can u post it on this forum please?

Thanks
AA