Question

I am trying to write some VBA in Microsof Access (if VBA is the way to go?). What I need is a pop up message alerting someone that a deployment is happening within the next week.

My table is called Tasks_List and there is a field called Deployment_Date.

What I think I need is to put together an OnLoad for the initial form. It would check today’s date and check through Deployoment_Date and show a pop up if any deployments are happening within the next week. The pop up should show what deployments are happening e.g. Initiating_System, Deployment_Date and Description.

Thank you in advance, I’ve hit a brick wall on this. I’ll post what I’ve tried but I have no VBA knowledge and it is pretty bad.

What I tried:

Private Sub Report_Open(Cancel As Integer)
Dim varX As Variant
varX = DLookup(Tasks_List.[Deployment_Date]< Now - 20)
If varX > 0 Then GoTo line2


line1: msgbox "Deployment approacing for: "

line2:


End Sub 

EDIT: After help below I have created a query and form for this. Using Dcount:

Private Sub Detail_OnLoad()
    Deploy = DCount("*", "Tasks_List_Popup_Query")

    If Deploy <> 0 Then
        DoCmd.OpenForm "Tasks_List_Popup_Query_Form"
        DoCmd.GoToRecord , , acNewRec

    End If
End Sub

Answer 1

You should not need any VBA. Create a query that selects the relevant records and create a form based on the query. You can use DCount to ensure that there are records before you launch the form, which would take a little VBA.

SELECT * FROM Tasks_List WHERE [Deployment_Date]< (Date - 20)

For the DCount:

Deploy = DCount("*","TheQuery")