Problem with Module for Payroll

[burrina]

I have a db and my Payroll Module is giving me some problems. Here is the Module Code:
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

The error message I get when I try to run my queries is; ' Syntax Error in Query QSaleComTotWkA, expression 'FicaMulDate = # #'.
' Reserved error 0

[Bob Fitz]

Perhaps something like this will work:

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

[burrina]

That did help some. I wrote this database over 12 years ago and have slept since then. It started out in Access 2.0 a long time ago in a place far away.
Attached is a scaled down version of the database. If you dont mind and have the time, please look at it and see what you think may be causing the problem.

[Bob Fitz]

As far as I can see at the moment, the problem is that DteEnd() has no value.

[ssanfu]

I think you cut out too much....

In the module "ModDate", how do the global variables "Dte1" & "Dte2" get initialized??

[burrina]

This comes from a form named frmAutoPayrollReport and it is set there. The date criteria can be removed for testing purposes.
Dte1 = Forms!frmAutoPayrollReport!StartDate
Dte2 = Forms!frmAutoPayrollReport!EndDat
This code is from the module ModDate:
Option Compare Database
Option Explicit
Public Dte1
Public Dte2
Public BilID As Variant
Public CustmID
Public QTBA As String 'Added 6/1/04 used to change recordsource for the RTimeBillingSub Report on the Main InvoiceReport.
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