Attached is a modified version of your Sample DB....
Since the Day boxes within the calendar are Text Boxes, you can easily highlight the current day using Conditional Formatting.
Set to
Expression and in the expression box enter
Format(Now(),"d")=[DayN]. Where
N is the number of the Day Text Box (Day1, Day2, Day3....etc.)
This can be done pragmatically as well which is the route I initially took. I have placed a Sub Procedure within the
frmCalendar Form to show how to do this. You will notice however that I have commented out the call to this procedure within the Forms'
OnOpen event. The reason for this is that the Conditional Formatting over-rides any change made to these Day Boxes for displaying Attendance items. This sort of eliminates the purpose of the Calendar if an Attendance Item happens to fall onto the Current Day. I left the code within the frmCalendar Forms' code module merely so you can see how this can be done. The procedure is named:
SetDaysCondFormating
To set the calendar Day Boxes Background color and foreground color according to the Attendance Item that happens to fall on any specific day, I created a Function conveniently named
SetCalendar. This single function pretty much does it all with respect to this task as well as applying the Attendance Item Text within the Calendar Day Text Box. Whatever method you were using before for this should no longer be required.
I took the liberty of deleting the 16 procedures placed into the
OnClick events for the Attendance Items which initiated the Summary Reports. These procedures were all the same except the name of the Summary Report itself. Too much code for nothing. I created a single function named
ShowReport which utilizes the same code but the report name is passed to it. The function call is placed directly into the
OnClick Property Box for each Attendance Item. You want to do this sort of thing wherever you can so as to keep your project as small as possible. Try not to use duplicate code.
I also found a couple problems with your
Cal Function. In general it works quite nicely except for the fact that if your Interface Calendar week starts on anything other than a Sunday, the function will not generate a proper Offset. Also, this function only supported the US Date Format. I have made a small modification to this Function so that it will handle any Country's date format and, it now doesn't matter what Week Day your Interface Calendar starts at. The Function actually now utilizes the Label Controls which display the Week Days (Monday, Tuesday, Wednesday,...etc) and works the Offset from their location. Now, you can very well start your Interface Calendar Week with Wednesday and the correct Offset will be calculated. The modifications are commented in code.
I also modified the
frmInputBox Form since it was not posting the correct Date.
There were a number of Code and Interface tweaks I had done but can't remember them all (sorry). If I see something that doesn't look right to me I simply just quickly correct it while I'm looking at it. It was actually nice to see little chunks of my code in your project as I was skipping through it. It made me feel.....useful
In any case. I think what you wanted has been established within the attached DB.
And, on a personal note, I like your Calendar Form. I think its nifty. There are some enhancements you could make but all in all I think your doing a good job.
Good luck with your project oxicottin.
.
. It works perfect from the 13th day of the month and forward. For some reason that I don't understand it counts the first 12 days as months. Is there anything I should do and I didn't so it runs smoothly? 
. Is this has anything to do with my issue maybe ?
