Running a query on startup and displaying msgbox

[djjay]

hi.

I've got a table in my db which is called ProjectBookings. The table holds details of different projects booked for this company, with the following main fields:

ProjectID
BookingReceived
ClientID
InvoiceSubmitBy
InvoicedYesNo

there are other fields but these are the main ones. The way the system works is that projects are booked in and then when they are invoiced the [InvoicedYesNo] field is set to yes.

The [InvoiceYesNo] field holds the date that the client must be invoiced by in order to received payment. I need a query that runs automatically on startup and checks the [InvoiceSubmitBy] date and the [InvoicedYesNo] fields and if the invoice has not been issued and the submitby date is 5 or less days from today then i need a message box to popup and warn that invoices need to be issued and then show the projects needing invoicing.

Any ideas how i could do this?

 

[JerryKlmns]

Create this query

Select ProjectID, BookingReceived, ClientID, InvoiceSubmitBy, InvoicedYesNo
From ProjectBookings
Where ((InvoiceSubmitBy < Date()-5) And (InvoicedYesNo = False));

and name it qdfCheckInvoices

Create in a module this sub

Sub CheckTheInvoices

If DCount ("ProjectID", "qdfCheckInvoices")>0 then
MsgBox "Invoices need to be issued"
DoCmd.OpenQuery "qdfCheckInvoices"
End If
End Sub

When your switchboard loads call that sub!