Weekly Calendar - Calendar Seminar Lessons


	Back to Calendar Seminar Lessons Comments List

Upload Images Link Email

Weekly Calendar

Erin Worthington

7 months 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 7 months ago
The code you have looks like it should work. See also: First Day of Week

	Adam Schwanz 7 months 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 7 months 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 7 months ago
Start date default is todays date. =Date()

	Sami Shamma 7 months ago
I can't seem to find the DB of the Calendar. The ZIP file has a very small DB.

	Erin Worthington OP 7 months 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 7 months 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.