By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
434,933 Members | 1,243 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 434,933 IT Pros & Developers. It's quick & easy.

Reminders

P: n/a
Hi there,

I'm setting up a database to track ethical applications related to
research and I want to it remind me whenever any of the projects are
due for annual review. How can I best go about this? I tried a code
from another website and it's not working. I have a table with all of
the information in and I want a code that will create a popup on
startup and let me know how many annual reviews are due.

Many thanks

Jane

Jul 18 '06 #1
Share this Question
Share on Google+
7 Replies


P: n/a
A fairly simple way to do this is to create a form to show the reminders
(typically in Continuous view, one per row.)

In this form's Open event, cancel if there are no records:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
'MsgBox "No reminders"
End If
End Sub

Now all you need to do in your initialization code or AutoExec macros is
OpenForm.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
>
I'm setting up a database to track ethical applications related to
research and I want to it remind me whenever any of the projects are
due for annual review. How can I best go about this? I tried a code
from another website and it's not working. I have a table with all of
the information in and I want a code that will create a popup on
startup and let me know how many annual reviews are due.

Many thanks

Jane

Jul 18 '06 #2

P: n/a
Thanks

I've managed to do this but putting in a code but I want it show up not
just on the date it's due but maybe a week before and week after. How
would I encorportate this in this line of code?

intStore = DCount("[EthicsNumber]", "[tblJobs]", "[ExpectedReportDate]
<=Now() AND [Complete] =0")
Thanks

Jane

Allen Browne wrote:
A fairly simple way to do this is to create a form to show the reminders
(typically in Continuous view, one per row.)

In this form's Open event, cancel if there are no records:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
'MsgBox "No reminders"
End If
End Sub

Now all you need to do in your initialization code or AutoExec macros is
OpenForm.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

I'm setting up a database to track ethical applications related to
research and I want to it remind me whenever any of the projects are
due for annual review. How can I best go about this? I tried a code
from another website and it's not working. I have a table with all of
the information in and I want a code that will create a popup on
startup and let me know how many annual reviews are due.

Many thanks

Jane
Jul 19 '06 #3

P: n/a
Could you create a query, and add those 2 things as criteria?
Then set the RecordSource of your form to that query.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Janey" <ja*******@gmail.comwrote in message
news:11*********************@s13g2000cwa.googlegro ups.com...
Thanks

I've managed to do this but putting in a code but I want it show up not
just on the date it's due but maybe a week before and week after. How
would I encorportate this in this line of code?

intStore = DCount("[EthicsNumber]", "[tblJobs]", "[ExpectedReportDate]
<=Now() AND [Complete] =0")
Thanks

Jane

Allen Browne wrote:
>A fairly simple way to do this is to create a form to show the reminders
(typically in Continuous view, one per row.)

In this form's Open event, cancel if there are no records:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
'MsgBox "No reminders"
End If
End Sub

Now all you need to do in your initialization code or AutoExec macros is
OpenForm.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
>
I'm setting up a database to track ethical applications related to
research and I want to it remind me whenever any of the projects are
due for annual review. How can I best go about this? I tried a code
from another website and it's not working. I have a table with all of
the information in and I want a code that will create a popup on
startup and let me know how many annual reviews are due.

Jul 19 '06 #4

ADezii
Expert 5K+
P: 8,638
Could you create a query, and add those 2 things as criteria?
Then set the RecordSource of your form to that query.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Janey" <janerogan@gmail.comwrote in message
news:1153323467.800864.58880@s13g2000cwa.googlegro ups.com...
'Original
intStore = DCount("[EthicsNumber]", "[tblJobs]", "[ExpectedReportDate]
<=Now() AND [Complete] =0")

'Revised
intStore = DCount("[EthicsNumber]", "[tblJobs]", "[ExpectedReportDate]
BETWEEN ((Now() - 7) AND (Now() + 7)) AND ([Complete] =0"))
Jul 19 '06 #5

P: n/a

I've done this and it half works. What do i need to put in the date
field to make it so I get reminders a week before todays date and a
week after?

Thanks

Allen Browne wrote:
Could you create a query, and add those 2 things as criteria?
Then set the RecordSource of your form to that query.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Janey" <ja*******@gmail.comwrote in message
news:11*********************@s13g2000cwa.googlegro ups.com...
Thanks

I've managed to do this but putting in a code but I want it show up not
just on the date it's due but maybe a week before and week after. How
would I encorportate this in this line of code?

intStore = DCount("[EthicsNumber]", "[tblJobs]", "[ExpectedReportDate]
<=Now() AND [Complete] =0")
Thanks

Jane

Allen Browne wrote:
A fairly simple way to do this is to create a form to show the reminders
(typically in Continuous view, one per row.)

In this form's Open event, cancel if there are no records:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
'MsgBox "No reminders"
End If
End Sub

Now all you need to do in your initialization code or AutoExec macros is
OpenForm.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

I'm setting up a database to track ethical applications related to
research and I want to it remind me whenever any of the projects are
due for annual review. How can I best go about this? I tried a code
from another website and it's not working. I have a table with all of
the information in and I want a code that will create a popup on
startup and let me know how many annual reviews are due.
Jul 20 '06 #6

P: n/a
So the criteria might be:
Between (Date() - 7) And (Date() + 7)

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
>
I've done this and it half works. What do i need to put in the date
field to make it so I get reminders a week before todays date and a
week after?

Thanks

Allen Browne wrote:
>Could you create a query, and add those 2 things as criteria?
Then set the RecordSource of your form to that query.

"Janey" <ja*******@gmail.comwrote in message
news:11*********************@s13g2000cwa.googlegr oups.com...
Thanks

I've managed to do this but putting in a code but I want it show up not
just on the date it's due but maybe a week before and week after. How
would I encorportate this in this line of code?

intStore = DCount("[EthicsNumber]", "[tblJobs]", "[ExpectedReportDate]
<=Now() AND [Complete] =0")
Thanks

Jane

Allen Browne wrote:

A fairly simple way to do this is to create a form to show the
reminders
(typically in Continuous view, one per row.)

In this form's Open event, cancel if there are no records:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
'MsgBox "No reminders"
End If
End Sub

Now all you need to do in your initialization code or AutoExec macros
is
OpenForm.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...

I'm setting up a database to track ethical applications related to
research and I want to it remind me whenever any of the projects are
due for annual review. How can I best go about this? I tried a code
from another website and it's not working. I have a table with all
of
the information in and I want a code that will create a popup on
startup and let me know how many annual reviews are due.

Jul 20 '06 #7

P: n/a
Brilliant! It works. Thanks very much Allen.

Jane

Allen Browne wrote:
So the criteria might be:
Between (Date() - 7) And (Date() + 7)

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

I've done this and it half works. What do i need to put in the date
field to make it so I get reminders a week before todays date and a
week after?

Thanks

Allen Browne wrote:
Could you create a query, and add those 2 things as criteria?
Then set the RecordSource of your form to that query.

"Janey" <ja*******@gmail.comwrote in message
news:11*********************@s13g2000cwa.googlegro ups.com...
Thanks

I've managed to do this but putting in a code but I want it show up not
just on the date it's due but maybe a week before and week after. How
would I encorportate this in this line of code?

intStore = DCount("[EthicsNumber]", "[tblJobs]", "[ExpectedReportDate]
<=Now() AND [Complete] =0")
Thanks

Jane

Allen Browne wrote:

A fairly simple way to do this is to create a form to show the
reminders
(typically in Continuous view, one per row.)

In this form's Open event, cancel if there are no records:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
Cancel = True
'MsgBox "No reminders"
End If
End Sub

Now all you need to do in your initialization code or AutoExec macros
is
OpenForm.

"Janey" <ja*******@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...

I'm setting up a database to track ethical applications related to
research and I want to it remind me whenever any of the projects are
due for annual review. How can I best go about this? I tried a code
from another website and it's not working. I have a table with all
of
the information in and I want a code that will create a popup on
startup and let me know how many annual reviews are due.
Jul 20 '06 #8

This discussion thread is closed

Replies have been disabled for this discussion.