My thanks too all of you for the thoughtful replies. With your help I did indeed have a way forward and a successfully implemented solution.
I am very grateful.
Joe
My thanks too all of you for the thoughtful replies. With your help I did indeed have a way forward and a successfully implemented solution.
I am very grateful.
Joe
In case the periods are always strictly 28 days, then (on fly, I can't test it, but I think you get the idea):
PeriodNumberForDate = Int((Date() - DateSerial(YearOf1stPeriod,MonthOfFirstPeriod,Day1 Of1stPeriod))/28) + 1
and
PeriodStartForDate = DateSerial(YearOfFirstPeriod, MonthOfFirstPeriod, DayOfFirstPeriod) + (PeriodNumberForDate -1)*28
So please share, as these forums are for helping others as well?
Perhaps your issue could help someone else.?
Try to give back.![]()
Please use # icon on toolbar when posting code snippets.
Cross Posting: https://www.excelguru.ca/content.php?184
Debugging Access: https://www.youtube.com/results?sear...bug+access+vba