pop ups

[Emma]

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?

 

[Golfinray]

I think Martin Green has one of those at www.fontstuff.com. Check under Access.

 

[Klatuu]

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.

 

[Emma]

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?

 

[Klatuu]

Probably.
--
Dave Hargis, Microsoft Access MVP

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?

 

[Emma]

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

Probably.
--
Dave Hargis, Microsoft Access MVP

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?

 

[Klatuu]

Try it this way.
Is Expr1 a field in your table? It looks more like something from a query
build with the query builder. Be sure you are using the correct domain name.
Private Sub Form_Load()

Dim intStore As Integer

intStore = DCount("[Expr1]", "[Tbl Client Information]", "[Expr1] #" <=
Now & "#")
If intStore > 0 Then
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

End If
End Sub


--
Dave Hargis, Microsoft Access MVP

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

Probably.
--
Dave Hargis, Microsoft Access MVP

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?

 

[John Spencer]

Private Sub Form_Load()

Dim intStore As Integer

'This line of code makes no real sense.
intStore=DCount("[Client ID]","[Tbl Client Information]", _
"[Expr1]<= Now()")

'Expr1 should be the NAME of a field in tbl Client Information.
'Then you are trying to compare that to the Current Date and Time
'which only makes sense if EXPR1 is a date time field.

'Note that Exit Sub in this type of IF structure
'needs to be on a 'separate line.
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

'====================================================
John Spencer
Access MVP 2002-2005, 2007-2008
The Hilltop Institute
University of Maryland Baltimore County
'====================================================

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

Probably.
--
Dave Hargis, Microsoft Access MVP

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?