How do set a pop-up reminder and auto execute it?
Posted: Tue Dec 22, 2009 8:35 am
Hello everyone!
I'm trying to create a pop-up reminder that would auto execute the reminder Form when the database start, i was able to do it in Access and now i would like to create the same thing in Base.
The reminder is a query of delivery dates, it will just show the list of deliveries for the current date in a Form. In access, the code is Date(). What is the equivalent of Date() in Base?
The auto execute part is the hard one, luckily i was able to find it here - http://www.databasedev.co.uk/reminders.html, i just replaced some strings and was able to make it work. Is there an equivalent to Base?
cheers
I'm trying to create a pop-up reminder that would auto execute the reminder Form when the database start, i was able to do it in Access and now i would like to create the same thing in Base.
The reminder is a query of delivery dates, it will just show the list of deliveries for the current date in a Form. In access, the code is Date(). What is the equivalent of Date() in Base?
The auto execute part is the hard one, luckily i was able to find it here - http://www.databasedev.co.uk/reminders.html, i just replaced some strings and was able to make it work. Is there an equivalent to Base?
Code: Select all
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("[JobNumber]", "[tblJobs]",
"[ExpectedCompletionDate] <=Now() AND [Complete] =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 "frmReminders", acNormal
Else
Exit Sub
End If
End If
End Sub
