This is perfect....!! I've now got it working and doing what I hoped it could do.

 

Thank you so much for helping me out with this, I'm sure the calendar ActiveX would be an even better product for developers if there were more examples like the one you've posted for me.

 

The help file that comes with the control hardly has any examples for working with the scores of properties, methods and events.

Better documentation would get developers up to speed a lot quicker with it. 

The control itself is brilliant in what it does, so no complaints there.

 

Thanks again for taking the time to answer my question, hopefully it will benefit others.

 

Cheers from South Wales UK

 

 

I think that the better way to retrieve all the events including recurring events is to use the RetrieveDayEvents method from the CalendarControl ActiveX that will do all the work.

 

Below a little code to quickly show one way to do the job:

 

' ---------- the definition of the events collection to be return (can be extented) 

Private Type MyEvents
    StartTime   As Date
    EndTime     As Date
    Subject As String
End Type

 

' ---------- The call of the subroutine

Private Sub FindEvents()
Dim FindEvents() As MyEvents, EvtCount As Long
Dim DateStart As Date, DateEnd As Date
Dim pEvent As CalendarEvent, i As Long

 

    ' *** Find events from now plus 6 days
    EvtCount = 0
    ReDim FindEvents(EvtCount)
    DateStart = Now
    DateEnd = DateAdd("d", 6, DateStart)
    ' *** the subroutine
    FindAllEvents DateStart, DateEnd, EvtCount, FindEvents()
    ' *** view the events
    For i = 1 To EvtCount
        Debug.Print FindEvents(i).StartTime & "-" & FindEvents(i).EndTime & "-" & FindEvents(i).Subject
    Next
End Sub

 

' ---------- The subroutine (the search for each day in the periode)

Private Sub FindAllEvents(DateStart As Date, DateEnd As Date, EvtCount As Long, FindEvents() As MyEvents)
Dim Events As CalendarEvents, Day As Date
Dim pEvent As CalendarEvent

 

    Day = DateStart
    Do
        Set Events = CalendarControl.DataProvider.RetrieveDayEvents(Day)
        For Each pEvent In Events
            EvtCount = EvtCount + 1
            ReDim Preserve FindEvents(EvtCount)
            FindEvents(EvtCount).StartTime = pEvent.StartTime
            FindEvents(EvtCount).EndTime = pEvent.EndTime
            FindEvents(EvtCount).Subject = pEvent.Subject
        Next
        Day = DateAdd("d", 1, Day)
    Loop Until Day > DateEnd
End Sub

 

 

I hope it can help you.

 

I'm not using a custom provider, just an Access connection string.

I'm happy to create an ADO connection if that is required.

My programming language is VB.

 

Please...please help, I'm desperate for this, I've spent at least 10 hrs fiddling around with this so far.

 

Thanks in advance.

 

Hopefully I'll be able to help this forum in the future.

 

Joe

 

Thanks in advance,

 

Can anyone show me how to decipher the recurrence pattern table so I can work out an algorithm for enumerating all the dates.

Is there an example on this forum, I had a look but couldn't find anything. I'll be using VB.

 

Thanks in advance,

 

Joe