RunTime Error 3075 in my query

[burrina]

This is a very complex query for me, here is the sql code for it. It is used to calculate the Fica,Medicare,Fit and totals. It also has a module.
Here also is code form my Module Named ModDate.

Function Fica()
Fica = DLookup("FicaMul", "TFica", "FicaMulDate = #" & DMax("FicaMulDate", "TFica", "FicaMulDate <=DteEnd()") & "#")
Fica_Exit:
Exit Function
Fica_Error:
MsgBox "Unexpected error - " & err.Number & vbCrLf & vbCrLf & Error$, vbExclamation, "Function Fica()"
Resume Fica_Exit


End Function
Function FIT()
FIT = DLookup("FITMul", "TFIT", "FITMulDate = #" & DMax("FITMulDate", "TFIT", "FITMulDate <=DteEnd()") & "#")
FIT_Exit:
Exit Function
FIT_Error:
MsgBox "Unexpected error - " & err.Number & vbCrLf & vbCrLf & Error$, vbExclamation, "Function FIT()"
Resume FIT_Exit
End Function
Function Med()
Med = DLookup("MedMul", "TMed", "MedMulDate = #" & DMax("MedMulDate", "TMed", "MedMulDate <=DteEnd()") & "#")
Med_Exit:
Exit Function
Med_Error:
MsgBox "Unexpected error - " & err.Number & vbCrLf & vbCrLf & Error$, vbExclamation, "Function Med()"
Resume Med_Exit
End Function
Function OT() '12/9/03 This should be deleted as it does not work correctly.
OT = DLookup("OTRate", "TOTRate", "OTRateDate = #" & DMax("OTRateDate", "TOTRate", "OTRateDate <=DteEnd()") & "#")
OT_Exit:
Exit Function
OT_Error:
MsgBox "Unexpected error - " & err.Number & vbCrLf & vbCrLf & Error$, vbExclamation, "Function OT()"
Resume OT_Exit
End Function

[June7]

What is DteEnd()? A custom function? Concatenate variables.


DLookup("FicaMul", "TFica", "FicaMulDate = #" & DMax("FicaMulDate", "TFica", "FicaMulDate <=#" & DteEnd() & "#")

[burrina]

Dte1 = Forms!frmAutoPayrollReport!StartDate
Dte2 = Forms!frmAutoPayrollReport!EndDat

[June7]

How does that relate to DteEnd()?

[burrina]

That is used on the main form where everything launches from. It is also in my module as well.
Function DteStart()
DteStart = Dte1
DteStart_Exit:
Exit Function
DteStart_Error:
MsgBox "Unexpected error - " & err.Number & vbCrLf & vbCrLf & Error$, vbExclamation, "Function DteStart()"
Resume DteStart_Exit
End Function
Function DteEnd()
DteEnd = Dte2
DteEnd_Exit:
Exit Function
DteEnd_Error:
MsgBox "Unexpected error - " & err.Number & vbCrLf & vbCrLf & Error$, vbExclamation, "Function DteEnd()"
Resume DteEnd_Exit
End Function

[June7]

Then concatenate the function as shown in my earlier post.

Neither of those functions sets the values of Dte1 and Dte2. How are Dte1 and Dte2 populated?

[burrina]

Maybe this will help. A bit confusing I'm sure. Code is called from the ModDate and the query seeks it out as well.
DTE1 and DTE2 are set by using the Calendar on the form frmAutoPayrollReport. Whatever dates you out in there is the criteria.default is one year back as start date and date() as End Date.

[June7]

Okay, Dte1 and Dte2 are public variables for that module but I still don't see procedure that populates them.

[burrina]

Year(DteEnd()) in one of my queries. QDates
Dte1 = Forms!frmAutoPayrollReport!BeginDate from frmAutoPayrollReport
Dte2 = Forms!frmAutoPayrollReport!EndDate
Forms![frmAutoPayrollReport]![StartDate] = SelectDate.Value from Calendar form.
Forms![frmAutoPayrollReport]![BeginDate] = CDate([AnyDate]) - (Weekday(CDate([AnyDate]))) - 2
Forms![frmAutoPayrollReport]![EndDate] = CDate([AnyDate]) - (Weekday(CDate([AnyDate]))) + 4

Hope this helps.

[June7]

Just confirms my previous comment. Dte1 and Dte2 are not populated by any procedure in that general module. Unless they are populated in a form module, the function calls will certainly fail. The variables must be populated before the functions are called.

[burrina]

Dte1 = Forms!frmAutoPayrollReport!StartDate As usual, Thanks Anyway!
Dte2 = Forms!frmAutoPayrollReport!EndDat
Call LookUp