Codejock Developer Community : Setting Date programmatically in Access 2002

Setting Date programmatically in Access 2002 : I am using 12.1.1 and everything...

Wed, 10 Dec 2008 12:49:33 +0000

Author: SuperMario
Subject: 12838
Posted: 10 December 2008 at 12:49pm

I am using 12.1.1 and everything seems to work fine. I just modified the Calendar Access sample with this code:

Private Sub cmdDayView_Click()
    Me.CalendarControl1.ViewType = xtpCalendarDayView
    Me.CalendarControl1.DayView.ShowDay #1/20/2007#
End Sub

Private Sub cmdMonthView_Click()
    Me.CalendarControl1.ViewType = xtpCalendarMonthView
    Me.CalendarControl1.MonthView.ShowDay #1/20/2007#
End Sub

Private Sub cmdWeekView_Click()
    Me.CalendarControl1.ViewType = xtpCalendarWeekView
    Me.CalendarControl1.WeekView.ShowDay #1/20/2007#
End Sub

Private Sub cmdWorkWeekView_Click()
    Me.CalendarControl1.ViewType = xtpCalendarWorkWeekView
    Me.CalendarControl1.DayView.ShowDays #1/20/2007#, #1/24/2007#
End Sub

Setting Date programmatically in Access 2002 : Sorry, but there's no fun...

Wed, 03 Dec 2008 12:11:58 +0000

Author: Muesli
Subject: 12838
Posted: 03 December 2008 at 12:11pm

Sorry, but there's no fun using CalendarPro2008 in MS Access 2002. After I switched from the test version12.0.2 to 12.1.1 no improvements have occured.

What's more, :

1) the Populate method doesn't work either anymore (!!), meaning the Events are well read through the dataprovider, but none is displayed.

2) In place create event is disabled.

I give up ...

Setting Date programmatically in Access 2002 : Hi,Again testing Calendar 12.0.2...

Tue, 02 Dec 2008 11:02:40 +0000

Author: Muesli
Subject: 12838
Posted: 02 December 2008 at 11:02am

Hi,

Again testing Calendar 12.0.2 in Access 2002. I stumble upon the most basic functionality: Positioning programmatically the calendar control to a given date, whatever the view (day,month,week,...) and scroll to 8:00 AM. I tried the following code in the Form_Open method of a form, but the calendar stubbornly shows the current day/week or month and positions itself on Today at 0:00 AM.


    With Me.Calendrier
            .VisualTheme = xtpCalendarThemeOffice2003
            With .Options
                .WorkDayStartTime = TimeSerial(8, 0, 0)
                .WorkDayEndTime = TimeSerial(20, 0, 0)
                .UseOutlookFontGlyphs = False
            End With
            Select Case DisplayMode
                Case 5
                    .ViewType = xtpCalendarWorkWeekView
                    .WeekView.ShowDay Min(DateAdd("d", -2, LastWeekDayDate(GivenDate)), GivenDate), True
                Case 7
                    .ViewType = xtpCalendarWeekView
                    .WeekView.ShowDay GivenDate, True
                Case 31
                    .ViewType = xtpCalendarMonthView
                    .MonthView.ShowDay GivenDate, True
                Case Else
                    .ViewType = xtpCalendarDayView
                    .DayView.ShowDay GivenDate, True
            End Select
            .DayView.ScrollToWorkDayBegin
            .SetDataProvider "Provider=Access;"
            .DataProvider.OpenEx CurrentProject.Connection
            .Populate
            .RedrawControl
        End With