Help!! I Need To Reset My Counting By Month...

I have this BIG Problem:

I have a form where i use 9 text fields named “Pallet” bound to 9 different tables (each table belongs to each terminal user, I create these tables due I have to perform differents actions and reports by person) i get the max value of each table by model and by user using the DMax function, the key point is to get the Max Value of this 9 fields just like this:


Field (Pallet)#1:108 Field (Pallet)#5:136 Field (Pallet)#9:159
Field (Pallet)#2:109 Field (Pallet)#6:138
Field (Pallet)#3:115 Field (Pallet)#7:132
Field (Pallet)#4:125 Field (Pallet)#8:138

Max Pallet: 159 I got this value creating the follow function...



Public Function fMax(ParamArray Variables())
Dim i As Integer

For i = 1 To UBound(Variables)
If Variables(i) > Nz(fMax) Then
fMax = Variables(i)
End If
Next i
End Function



Based on this i open a controlled field in my form and wrote this function:

= fmax ([Pallet#1]; [Pallet#2]; [Pallet#3]; ...[Pallet#9] )



The BIG QUESTION is how can i reset to zero the criteria in my Dmax function to get the max value of each table??? Due each month the counting needs to be reset to zero because the issue is to get every month the production quantity of cell phones pallets produced, and if I let this function alone, it will give me the max pallet number regardless the month the key is to get the max value according the month…

I try this function but doesn't work:

=DMáx("[Escaneo_Gabriela]![Tarima]","[ Escaneo_Gabriela]"," [Escaneo_Gabriela]![Modelo] = 'G1500S' And Month([Escaneo_Gabriela]![Fecha])=Month(Date()) And Year([Escaneo_Gabriela]![Fecha])=Year(Date())")

I was thinking in open a field in each table named "Month" and create a function or module to give me the value only of the current month based on this field, but i'm not quite sure about the sintax, PLEASE HELP ME>>>!!!!!!!