Business Day Function Works but needs to account for no Null End Dates - HELP?

[Lisa Perry]

Thank you. Did you upload a new database - I only see the one you sent earlier and it did the same thing? Lisa

[RuralGuy]

I should really test my code before uploading!
I changed my upload *again* after testing. Evidently the field is not actually Empty, at least as far as the IsEmpty() function is concerned.

[RuralGuy]

New db on Post #12.

[Lisa Perry]

Hello,

Sorry it took me so long to get back to you I was pulled in another direction. I opened the DB in post 12 and I am getting the same error message as before...the query runs if all dates are in the table but as soon as I remove the AE_Resp_Rcvd date in one of my customer's records and then run the query - I get this message....

Run Time Error 94 - Invalid use of Null and it points to the below bold line of code...are you able to run with no error?


Dim lngYear As Long
Dim lngEYear As Long
Dim dteStart As Date, dteEnd As Date
Dim dteCurr As Date
Dim lngDay As Long
Dim lngDiff As Long
Dim lngACount As Long
Dim dteLoop As Variant
Dim blnHol As Boolean
Dim dteHoliday() As Date
Dim lngCount As Long, lngTotal As Long
Dim lngThanks As Long
dteStart = dteStartDate
dteEnd = dteEndDate



I am so sorry to take your time up and I appreciate your help.

Lisa

[RuralGuy]

Sorry Lisa,
How about this one?

[Lisa Perry]

Thank you so much, this worked beautifully. I can't tell you how much I appreciate your help - twice now! You are very kind to help me and I am learning from you!

Thank you again and have a great day!

Lisa

[RuralGuy]

You're certainly welcome. Glad we could help.