Hi Klatuu,
I came up with this code through a website, is there anything obviously
wrong with it as the debugger is coming up when ever the script runs... Expr1
is the date I calculated that the followup should happen on
Private Sub Form_Load()
Dim intStore As Integer
intStore = DCount("[Client ID]", "[Tbl Client Information]", "[Expr1]" <=
Now())
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 "Follow Up Report", acNormal
Else
Exit Sub
End If
End If
End Sub
Thanks Emma
Klatuu said:
Probably.
--
Dave Hargis, Microsoft Access MVP
Emma said:
This sounds very complicated, would the user have to check the field
FollowUpFlag to say they've done the follow up?
:
When and where would you want that to happen?
In any case, the basic logic would be:
If DateDiff("d",[ClientAdded], Date) >= 90 And [FollowUpFlag] = False Then
You do need a field to know you have already done the follow up.
--
Dave Hargis, Microsoft Access MVP
:
Hi I would like a window to pop up 3 months, (or 90 days) from the date the
client is created just saying a reminder, is this possible? And how would I
go about doing this?