Adding Notification to Access

For the Birthday notifications, I would create a report that lists upcoming birthdays. First you need a query to do so. Open Query Design mode and select your contacts table. Add the fields you want to include in the report (names, etc.), then add a column with the following expression:

NextDOB: DateSerial(Year(Date()),Month([DOB]),Day([DOB])) 

Use the actual name of your DOB field. 

For the Criteria of that column use:

BETWEEN Date() AND Date()+30

This will display all contacts with birthdays coming up in the next 30 days.

You can then use this query as the Recordsource for your report.

To display this report when you open your database, create a macro named Autoexec and use the OpenReport action to open that report.

For the second issue. Open the Contacts table in Design mode and add a field:

NextContact as a DateTime type

I don't think you need another table just for this reminder field. But you will need to open your form in Design mode to add a control for the new field.

Both can be done with almost no need for code (other than to open the report).

For your first requirement, try the following code in your first / main form opened:

Option Compare Database

Option Explicit

Private Sub Form_Open(Cancel As Integer)

    BirthdayReminder

End Sub

Private Sub BirthdayReminder()

    On Error GoTo Err_Process

    Dim rst1 As Recordset

    Dim dbs1 As Database

    Dim strSQL As String

    Dim strContact As String

    strSQL = "SELECT Contact1.Fname, Contact1.Sname, Contact1.DOB" & vbCrLf & _

    "FROM Contact1" & vbCrLf & _

    "WHERE (((DateDiff('d',Date(),DateSerial(Year(Date()),Month([DOB]),Day([DOB]))))=3));"

    Set dbs1 = CurrentDb

    Set rst1 = dbs1.OpenRecordset(strSQL, dbOpenSnapshot)

    With rst1

        Do While Not .EOF

            If (strContact = "") Then

                strContact = .Fields(0) & " " & .Fields(1) & " DOB: " & .Fields(2)

            Else

                strContact = strContact & vbCrLf & .Fields(0) & " " & .Fields(1) & " DOB: " & .Fields(2)

            End If

            .MoveNext

        Loop

        .Close

    End With

    If (strContact <> "") Then

        MsgBox "Please send birthday card(s) to the following:" & vbCrLf & strContact, vbInformation, "Birthdays"

    End If

Exit_Process:

    Set rst1 = Nothing

    Set dbs1 = Nothing

    Exit Sub

Err_Process:

    MsgBox Error$

    Resume Exit_Process

    Resume 0

End Sub

For your second requirement, you will need to create a table called something like ContactReminder:

You can then create a form based on the table that can either be opened from the contacts form or displayed as a sub form on the contacts form.

Hey there. Thank you for the first reply. On the first instruction, I'm a bit unsure where this code goes. Any further insight you could provide? Thanks

When the application initially opens, there is one form that is automatically opened.  It is that form that you want to add the code to.

Hey there. Thank you for the first reply. On the first instruction, I'm a bit unsure where this code goes. Any further insight you could provide? Thanks