Hi all,

I have a need to pass a variable from a forms VBA over to a query.  The example is I have a continuous form that will have several records in it.  The dates on the records typically span from the previous month to the current month.  On each new month, I would like to run an update query on the previous months records to change the status to completed.  I know how to build the update query, but having trouble passing over the month between VBA and the query.  In the query I created a field that has Month([createddate]) in it to pull the month number into the query.

In VBA I have:

Dim sMonth As String
    If Month(Date) = 1 Then
        sMonth = 12
    Else
        sMonth = Month(Date) - 1
    End If
    
    TempVars("tMonth") = sMonth

    DoCmd.OpenQuery "qryotupdatestatus"

And in the query criterial I have TempVars("tMonth")

But that does not work.

Any help would be great.