Weekly Calendar - How To Build a Fully Functional Calendar Form and Printable Monthly Report in Microsoft Access


	Back to Calendar Seminar Lessons Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Weekly Calendar

Erin Worthington

2 years ago

Lesson 6 Minute 9:30... I am making my calendar a weekly one. the code in the open calendar button keeps taking me to the first week of the month no matter what date I input. I scoured google, your vids, and previous questions, the closest answer was to "adjust the code slightly" with no other guidance on how or what to type. I am at a loss. This is what I have:

Private Sub CalculateStartDate()
'find the first sunday
  While Weekday(StartDate) <> 1
  StartDate = StartDate - 1
  Wend
End Sub

	Richard Rost @Reply 2 years ago
The code you have looks like it should work. See also: First Day of Week

	Adam Schwanz @Reply 2 years ago
What is StartDate? Is the value of that set with something that takes it to the first week of the month instead of the current date? In my weekly calendar I use this. `Dim X As Date X = Date() While Weekday(X) <> 1 X = X - 1 Wend Forms!MainMenuF!WeeklyDate= X`

	Richard Rost @Reply 2 years ago
If memory serves (and it's been a while since I recorded this) StartDate is a form field that defaults to the first day of the current month.

	Erin Worthington OP @Reply 2 years ago
Start date default is todays date. =Date()

	Sami Shamma @Reply 2 years ago
I can't seem to find the DB of the Calendar. The ZIP file has a very small DB.

	Erin Worthington OP @Reply 2 years ago
I am very confused. I don't even know what DIM is yet. I know just enough to be dangerous. I will go back to the beginner and subsequent courses to find enlightenment. Thanks for taking the time to help me guys.

	Sami Shamma @Reply 2 years ago
Watch this Video Intro to VBA

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Calendar Seminar Lessons.

Next Unseen

New Feature: Comment Live View