Popup Reminder - Code help (1 Viewer)

[coolcatkelso]

Hiya guys

I've got a popup reminder that starts on my home screen when I start access. It should popup a msg telling how many new jobs are starting, however, I can only seem to get it popping up on the day the job starts, I need at least 2 days notice

Here is the code

Option Compare Database
Option Explicit
Private Sub Form_Load()
 Dim intStore As Integer
 intStore = DCount("[WorkorderID]", "[Workorders]", "[StartDate] <=Now() AND [StartDate]")
 If intStore = 0 Then
            Exit Sub
                Else
                    If MsgBox("There are " & intStore & " new jobs starting " & _
                    vbCrLf & vbCrLf & "Would you like to see these now?", _
                    vbYesNo, "You Have new jobs approaching start date...") = vbYes Then
                    DoCmd.Minimize
                    DoCmd.OpenReport "Workorder Accounts", acNormal
                Else
            Exit Sub
        End If
    End If
End Sub

So, currently, its setup to act on NOW date, instead I need to act 2 days BEFORE the job is due to start,, is this pos?
________
Kitchen Measures

 

[pbaldy]

Sure; use the DateAdd() function to add 2 days to today's date, and test for the date field in the table being less than that.