Multiple Schedule

 

  I have a issue with Multiple Schedule. I am using Access 2003. I got multiple schedule shown in calendar, but no events shown. The code is shown below:

 

Private Sub Form_Load()
    Dim arResources As New CalendarResources
    Dim pRes0 As New CalendarResource
    Dim pRes1 As New CalendarResource
    Dim NewEvent As CalendarEvent

    pRes0.SetDataProvider CalendarControl.DataProvider, False
    pRes1.SetDataProvider CalendarControl.DataProvider, False
 
    Dim pSchedules As CalendarSchedules
    Set pSchedules = pRes0.DataProvider.Schedules

    If pSchedules Is Nothing Then
        Exit Sub
    End If
    If pSchedules.Count < 1 Then
        pSchedules.AddNewSchedule "John"
        pSchedules.AddNewSchedule "Terry"
        pRes0.DataProvider.Save
    End If
   
    pRes0.Name = pSchedules.Item(0).Name
    pRes0.ScheduleIDs.Add pSchedules.Item(0).Id

       
    pRes1.Name = pSchedules.Item(1).Name
    pRes1.ScheduleIDs.Add pSchedules.Item(1).Id
   
    Set NewEvent = pRes0.DataProvider.CreateEvent
    NewEvent.Subject = "test"
    NewEvent.Location = "test"
    NewEvent.StartTime = Now
    NewEvent.ScheduleID = pSchedules.Item(0).Id
    pRes0.DataProvider.AddEvent NewEvent
    pRes0.DataProvider.Save
       
    arResources.Add pRes0
    arResources.Add pRes1
    CalendarControl.SetMultipleResources arResources
    CalendarControl.Populate
End Sub

 

Thanks for any help!

 

We prefer not to set connection string for the calendar dataprovider. Instead, we are going to get a recordset from sql server databbase, then create events and populate calendar. We are able to get it work in single resource calendar. We are having trouble in multi-resource mode.

 

Thanks for any advice.