Hi -

The "Holidays" table entries need to be Date type. This statement:

If Not IsNull(DLookup("[HolDate]", "Holidays", "[HolDate] = #" & Int(dteCurrDate) & "#")) Then

is looking up the values as dates.

John