Folks,
Can anybody out there help me with a timed pop up reminder for my database.
I have a form based on a table with the following fields
Date field - Date picker
Time field - Combo box (24hrs, 48hrs, 72hrs & 96hrs)
Task Number - Textbox (Interger)
Completed - Yes/No checkbox
I want my pop up form to remind me of follow ups that are to be done in 48 hours, and others will be in 72 or 96 hours respectively. So i will be reminded of tasks that are to be done in differend time intervals.
I had this pop up previously but now i want to update it to the above. The code is below.
Code:
Private Sub Form_Load()
'On Load of the switchboard check RefTbl for any incomplete Jobs
Dim intStore As Integer
'Count of incomplete jobs that are past the Expected Completion Date
intStore = DCount("[Job Number]", "[Reminders]", "[Expected Completion Date] <=Now() AND [Completed] =0")
'If count of incomplete 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 & " incomplete Jobs" & _
vbCrLf & vbCrLf & "Would you like to see these now?", _
vbYesNo, "You Have incomple Jobs...") = vbYes Then
DoCmd.Close , "[Switchboard],,"
DoCmd.OpenForm "Reminderfrm", acNormal
Else
Exit Sub
End If
End If
End Sub