tracking expiration dates

  • Thread starter Thread starter Solomon
  • Start date Start date
S

Solomon

I'm currently using access 2002. I have a large database with EMT and
Paramedic certifications (e.g. CPR, ALS, Recerts etc) and their expiration
dates. I'm trying to find a easier way to keep track recertifications. I
would like to create a system where I can click a button (lets label the
button "90 days") and the names, type of certification (thats due to expire),
and other select information (e.g. employee #, contact info, etc...) of the
EMTs and Paramedics whose certification(s) will expire within the 90 days
will be outputed in a spreadsheet. Similarly, for 30 and 60 day periods. I
desparately need help and guidance. Thank you.
 
Create a query as the record source of your report that has all the fields
you want to present.
Create your report using the query as the record source for the report.

The OpenReport method has a Where argument that can be used to filter the
records included in the report. For example purposes, I will call the field
[ExpireDate] that shows the date the certification expires.

This would be an example of the code in the Click event of your button to
produce a report for those that will expire in the next 90 days:

Dim strWhere As String

strWhere = "[ExpireDate] BETWEEN #" & Date & "# AND #" & DateAdd("d",
90, Date) & "#"

Docmd.OpenReport "rptExpiringCerts", , , strWhere
 
Back
Top