Tracking Licenses

Sonnyboy

New member
Local time
Today, 15:10
Joined
Sep 13, 2007
Messages
9
For those that like complications. I am trying to keep track of licenses issued to the skilled trades for work in our Town.

Our fiscal year begins July 1st and ends June 30th of the next year.

We issue licenses to Electricians, Plumbers, and Mechanics. The payment is variable, depending upon whether they want to pre-pay for the next year when they get a license or when they renew.

Criteria:

$35 paid, month of June or July, expires June 30th of next year
$70 paid, Month of June or July, expires June 30th year after next
$100 paid, if before June, expires June 30th of the current year
$100 paid, June or later, expires June 30th of next year
$135 paid, before June, expires June 30th of next year
$135 paid, June or later, expires June 30th year after next

When a person pays for a license, the relevant information is entered into my database, along with the amount and the date of payment.

Here is what I would like to have take place:

1) When I enter the information into the form frmTrades (for the tblTrades) I want the textbox labeled "expires" to show the expiration date.

2) When an Inspection is requested by one of the licensees, and I enter the request in the "Inspections" form (for the tblInspections) I want to choose the business from a drop-down and have the status for that business automatically popup and display the message "Expires ddmmyy" or "Expired ddmmyy" so that I know whether they are current with the City.

What would be really neat, is if the license has expired, is to have the pop-up flash!


Thanks for your help
Sonnyboy
 
Sonny,

The functions I think you are going to want to use include the following:

*DateAdd()
*DateSerial()
*IIF()

You will probably want to use the concatenation technique as well, to display your message "Expires on thisdate". Also, here is MS article for populating controls after a dropdown selection:

http://support.microsoft.com/kb/319482/en-us

To get your FLASH, you'll use a simple conditional statement with your form, something like:
Code:
If [I]MyControl.Value[/I] < Date() then
   msgbox "The license is expired for this vendor.  Too bad for them!"
 

Users who are viewing this thread

Back
Top Bottom