Popup on flagged Date

coolcatkelso

Registered User.
Local time
Today, 20:40
Joined
Jan 5, 2009
Messages
279
Hiya guys

Looking for some help on this one..

My database has these basic fields on a form -

StartDate - Date of job started

Billed To Date - Date the work MUST Stop

Total Days - Total Days between Start and End dates

So for example I have this

Start Date - 11th May 2009

Billed to date - 5th Dec 2009

Total Days - 208

So the job must end on todays date (5th Dec), Is there a way to popup a message box when Dbase starts to say this job has ended or have it pop up a few days BEFORE the job should end as a reminder?

The form above, isnt a main page off the database. A kind of Dbase tree would be like -

Customers (Main Form)
Products
Employees
Workorder (FORM AS DESCRIBED)
Quotes
etc etc

So would this be something that is possable?

Cheers Guys
________
WELLBUTRIN SETTLEMENT
 

Attachments

  • data.jpg
    data.jpg
    78.3 KB · Views: 83
Last edited:
i worked with a guy once that had an opening screen that said "you have (this many) bills due today...etc, etc....

you may want to have something like that too. have a splash screen or another switchboard screen that shows how many workorders are pending, or rather how many workorders are comming due within the next 3 days. it would be a simple dcount via a dateadd() function to check for the 3 day window.
 
Hiya m8

Cheers for the reply,

Any ideas on tackling this?

I found this on the MS website

Code:
Private Sub Form_Load()
'On Load of the switchboard check Jobs table for any uncompleted jobs
Dim intStore As Integer
'Count of uncomplete jobs that are past the Expected Completion Date
intStore = DCount("[WorkorderID]", "[workorders]", "[CompletedDate] <=Now() AND [Completed] =0")
'If count of uncomplete jobs is zero display switchboard
'Else display message box detailing amount of jobs
'and give the user the option as to whether to view these or not.
    If intStore = 0 Then
            Exit Sub
                Else
                    If MsgBox("There are " & intStore & " uncompleted jobs" & _
                    vbCrLf & vbCrLf & "Would you like to see these now?", _
                    vbYesNo, "You Have Uncomplete Jobs...") = vbYes Then
                    DoCmd.Minimize
                    DoCmd.OpenForm "WorkordersView", acNormal
                Else
            Exit Sub
        End If
    End If
End Sub

Which I've now loaded in and it appears to work. It lists that there is 1 un-completed workorder and click yes to view, it shows all the workorders.. Must be a filter issue somewhere,, Needs to filter on WorkorderID
________
MARIJUANA BUBBLER
 
Last edited:

Users who are viewing this thread

Back
Top Bottom