N
naiveprogrammer
I have a db that is set to remind the user to view certain records. I have
the query in the form_load in a switchboard. This all works very well except
now.... the user needs to view records based on different criteria's. Now she
wants reminders like these for every record-
Remind every week for the first 30 days
After the 1st 30 days then Remind at 60 days
After 60 days Remind at 90 days.
I have NO idea where to start with this. ANY help would very much welcomed.
THANKS!
Here is my current code.
***CODE***
Private Sub Form_Load()
Dim intStore As Integer
intStore = DCount("[AppNumber]", "[tblJobs]", "[ExpectedCompletionDate]
<=Now()-90 AND [Complete] =0")
If intStore = 0 Then
Exit Sub
Else
If MsgBox("There Are " & intStore & " Names To Review." & _
vbCrLf & vbCrLf & "Would you like to see these now?" _
, vbQuestion + vbYesNo, "You Have Names To Review...
") = vbYes Then
DoCmd.Minimize
DoCmd.OpenForm "frmRemind", acNormal
Else
If vbNo Then
DoCmd.Quit
Exit Sub
End If
Exit Sub
End If
End If
End Sub
***END CODE***
the query in the form_load in a switchboard. This all works very well except
now.... the user needs to view records based on different criteria's. Now she
wants reminders like these for every record-
Remind every week for the first 30 days
After the 1st 30 days then Remind at 60 days
After 60 days Remind at 90 days.
I have NO idea where to start with this. ANY help would very much welcomed.
THANKS!
Here is my current code.
***CODE***
Private Sub Form_Load()
Dim intStore As Integer
intStore = DCount("[AppNumber]", "[tblJobs]", "[ExpectedCompletionDate]
<=Now()-90 AND [Complete] =0")
If intStore = 0 Then
Exit Sub
Else
If MsgBox("There Are " & intStore & " Names To Review." & _
vbCrLf & vbCrLf & "Would you like to see these now?" _
, vbQuestion + vbYesNo, "You Have Names To Review...
") = vbYes Then
DoCmd.Minimize
DoCmd.OpenForm "frmRemind", acNormal
Else
If vbNo Then
DoCmd.Quit
Exit Sub
End If
Exit Sub
End If
End If
End Sub
***END CODE***