Hey Guys, I have created the Monthly Calendar like the one in the Calendar Seminar Lessons. But the Data is not displaying correctly. I get the Correct Day highlighted but no Data.
Here is the Code I'm using in Form: DetailsPrivate Sub CalculateStartDate()
'Set the First Day of the Month StartDate = DateSerial(Year(StartDate), Month(StartDate), 1)
'Find the First SUNDAY While WeekDay(StartDate) <> 1 StartDate = StartDate - 1 Wend
End Sub
Public Sub OpenCalendar()
Dim X As Integer Dim S1 As String, S2 As String
Dim todayDay As Integer Dim todayMonth As Integer Dim todayYear As Integer
If (Day(Forms!MonthlyCalendarViewF(S1)) = todayDay And _ Month(Forms!MonthlyCalendarViewF(S1)) = todayMonth And _ Year(Forms!MonthlyCalendarViewF(S1)) = todayYear) Then Me(S2).BackColor = vbRed Else Me(S2).BackColor = &HFFFFFF End If Next X
End Sub Here is the Code I'm using in each List Box: SELECT ScheduleID, ScheduleStartTime, ScheduleStartDate, ScheduleDescription FROM ScheduleQ WHERE ScheduleStartDate>=Date()+1 AND ScheduleStartDate
Kevin Robertson 12 months ago
Check to see that the number of days added to the Date() function are different in each List Box.
James HopkinsOP 12 months ago
Kevin, there are. The Date and Time is stored in two different fields in the Table.
James HopkinsOP 12 months ago
Hey, Changed the Code in List Boxes to:
SELECT ScheduleID, ScheduleStartTime, ScheduleStartDate, ScheduleDescription FROM ScheduleT WHERE ScheduleStartDate>=Date()+1 AND ScheduleStartDate
To see if the I can retrieve the Data for the Table to populate the Form. It worked but the Data is still displaying on the wrong Date or Day.
Sorry, only students may add comments.
Click here for more
information on how you can set up an account.
If you are a Visitor, go ahead and post your reply as a
new comment, and we'll move it here for you
once it's approved. Be sure to use the same name and email address.
This thread is now CLOSED. If you wish to comment, start a NEW discussion in
Calendar Seminar Lessons.
The following is a paid advertisement
Computer Learning Zone is not responsible for any content shown or offers made by these ads.