Calender

[kamphuuzz]

[SOLVED] Calender

Hello,

I have found a calender databse witch I wanna use in one of my own databases.
But.. on the form the weeks start on sunday, I want the week to start on Monday but I can't figure out how to do it. I hope you guys can help me.
My VBA skills are basic, but still learning

I've posted the original database as an attatchment. I'd like to know what I have to change in the code and/or in the form to get what i want.

 

[Rx_]

Please check the dates to make sure they match.
I only had a couple of minutes, but this seems to work.

Be sure to add appointments, modify them and check that the dates fall on the right day of the week. I didn't have much time to test it.



If it doesn't work, please, please post so nobody else assumes it does.
If it does work, please report back and mark the thread as SOLVED

PLEASE NOTE - a problem was found - see later posting for the download that was updated and tested - Don't use this posted version - Please scroll down

 

[kamphuuzz]

It's not completely working.
I changed the line:

strFirstOfMonth = "1/" & Str(intMonth) & Str(intYear)

back to:

strFirstOfMonth = Str(intMonth) & "/1/" & Str(intYear)

to make the date matches the right day.

But this only works for the month March. When ik go to april, it'll set the 1st of april on the monday.

 

[Gasman]

I had a go last night and could not do it. I *thought* I had the solution this morning when I woke up, but there is stsill code to be changed.

The problem appears to be that you want Sunday (weekday 1) to be in the 7th column. Whilst I believe I have the blocks before and after now correct, I am getting overflow when trying to populate the calendar.

For all the effort involved, other than learning something new, I'd have left it as it was. :banghead:

 

[Gasman]

I *think* I might have cracked it.

Not exhaustively tested, but dates, positions and blocks look good. Adding an appointment also seems to go in the correct block

Over to you to test.

 

[kamphuuzz]

Did a couple of tests but couldn't find anything go wrong.
It really looks like you've cracked it.

Thank you very much Gasman!!

 

[kamphuuzz]

I've copied the changes to my own database, did a couple of test and it looks perfect! I say the problem is solved.

Thank you very, very much!!

 

[Gasman]

Good, that means my day started off well.

You will see my comments if you want to see what was required. Only PopulateCalendar was changed. I must say that it was all a neat bit of code and showed a few things I did not know about.

 

[Rx_]

Let me suggest adding an About Me button, also update some of the comments at places you visited for the date formulas.
Then submit it to the Sample Database
http://www.access-programmers.co.uk/forums/forumdisplay.php?f=64
This was an interesting method of creating a block of days and assigning them with dates. It would probably help many others looking for an idea, solutions, or design concept.

 

[Gasman]

I *think* I already have an About Me tab. Is that the same thing.?

I will add some extra comments and add to the reference forum as you suggest.

Thank you.

 

[Gasman]

Having seen several threads that mention one is able to specify the start day of the week, I believe this request can be carried out more easily by changing just one line

bytFirstWeekdayOfMonth = WeekDay(strFirstOfMonth)

to

bytFirstWeekdayOfMonth = WeekDay(strFirstOfMonth, vbMonday)

and changing the labels on the form from Sun -Sat to Mon - Sun.

Only did some quick tests, but seems to work.

Ah well, you live and learn.

 

[Rx_]

DOH!
Good catch! Thanks for sharing.