Possible to create a wall type calendar?

[Spyder757]

Is it possible to create a report that looks like a calendar reading from left to right within a report in Access?

Basically I’d like to be able to say 09/01/02 to 09/30/02 and return display the data in a format that looks like a traditional wall calendar.

Spyder757

 

[MichaelRed]

several threads cover this is detail. suggest you do hte search thiinnnnggggggyyyyyyy with 'calendar', you should get MANY threads, just review them until you get the one you like/understand/...


MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[rickj65]

I've created "wall calendar" type reports for a client of mine who wanted to print out a visual schedule of consultant hours each day. I had to create versions for landscape mode (which looked normal) and portrait (which was necessary depending upon the amount of data needed to be captured in each "day&quot.

...it isn't exactly a cake walk, but it is possible with a little bit of creativity, and a lot of patience. Definitely too much info to put in this thread.

E-mail me at datascope@worldnet.att.net and maybe I could zip it down with the supporting code. You can tailor it to your needs.

Rick

 

[Spyder757]

I did several searches and came up with squat. The only thing I found was forms that had calendars.

Spyder757

 

[jiqjaq]

This is not that difficult. Create a grid consisting of square textboxes, 7 across by 6 down. (You need 6. If November had 31 days...) Name all the textboxes something like Box1, Box 2, ... Make sure you get them in order going across & down, so the last one is Box42. (You technically only need 37 but forget about that.)

Use the Weekday function to get the day number of the first day of the month. FirstDay = Weekday("11/1/2002&quot. This is the starting box number which will contain a "1" for the first of the month. Calculate NumberofDays as the number of days in the month (use an array or the datediff function.)

Dim intNdx as Integer
Dim FirstDay as Integer
Dim NumberofDays as Integer

FirstDay = ...
NumberofDays = ...
For intNdx = FirstDay to NumberofDays + FirstDay - 1
Me("Box" & intNdx) = intNdx - FirstDay + 1
Next intNdx


Since Nov 2002 starts on day 6 and has 30 days, this is really:
Box6 = 6 - 6 + 1 (1)
Box7 = 7 - 6 + 1 (2)
...

You must name all the fields with the same prefix or this won't work for the field name concatenation.

 

[MichaelRed]

thread702-19300 follow the link for JtG.

It is found via search. Along with others, although I will admit most of them are less useful. MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[Spyder757]

Thank you for all the help. It seemed like such a simple thing to create but I couldn't come up with anything that worked on my own.

Again thank you all.

Spyder757