Filtering in Calendar Control

To filter you can use the PrePopulate event combined with something like CustomProperties as a filter.

Here is one way to filter events. It is a very basic sample using PrePopulate.

This sample assumes you have a custom property called "Name" for your events, and some global variable named strName that holds the name of the user you want to view. The sample below will see if the event has a property with "name", if it doesn't, then it checks to see if the name is equal to strName, if it's not, it will hide it (this only hides the event, not remove it from the data source).

You can use Prepopulate event to hide some events in the Calendar display.

Private Sub CalendarControl_PrePopulate(ByVal ViewGroup As XtremeCalendarControl.CalendarViewGroup, ByVal Events As XtremeCalendarControl.CalendarEvents)

    If Events.Count > 0 Then
        Dim i As Long
        For i = Events.Count - 1 To 0 Step -1
            If Not Events(i).CustomProperties("name") = "" Then
                If Not Events(i).CustomProperties("name") = strName Then
                    Events.Remove i
                End If
            End If
        Next
    End If
End Sub

Here is another version:

This assumes you have some BOOL that specifies when filtering is enabled (bFilterMode). Also assumes your filter text is stored in a global variable (sFilterText)

The sample simply compares the Subject of the event to some text, if they match, then the event will be displayed, if they don't match, it is not displayed. This is only visual, no data is removed from the database.

Obviously you can improve on the compare, the following sample assumes an exact match.

Private Sub CalendarControl_PrePopulate(ByVal ViewGroup As XtremeCalendarControl.CalendarViewGroup, ByVal Events As XtremeCalendarControl.CalendarEvents)

Dim pEvent As CalendarEvent
Dim x As Integer
x = 0

For Each pEvent In Events
  If bFilterMode Then
   If pEvent.Subject <> sFilterText Then
    Events.Remove x
   End If
   x = x + 1
  End If
Next

End Sub

Hope this helps

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
clivet Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 15 June 2012 Status: Offline Points: 2	Post Options Post Reply Quote clivet Report Post Thanks(0) Quote Reply Topic: Filtering in Calendar Control Posted: 15 June 2012 at 2:48pm
	Can I do a filtering of the events to be displayed on the calendar control programmatically? I would like to provide a combo box for user to select the location and only events in the selected location are displayed. How can I do that in VBA? I am using Access 2010. Thanks.

SuperMario Members Profile Send Private Message Find Members Posts Add to Buddy List Admin Group Joined: 14 February 2004 Status: Offline Points: 18057	Post Options Post Reply Quote SuperMario Report Post Thanks(0) Quote Reply Posted: 18 June 2012 at 8:28am
	To filter you can use the PrePopulate event combined with something like CustomProperties as a filter. Here is one way to filter events. It is a very basic sample using PrePopulate. This sample assumes you have a custom property called "Name" for your events, and some global variable named strName that holds the name of the user you want to view. The sample below will see if the event has a property with "name", if it doesn't, then it checks to see if the name is equal to strName, if it's not, it will hide it (this only hides the event, not remove it from the data source). You can use Prepopulate event to hide some events in the Calendar display. Private Sub CalendarControl_PrePopulate(ByVal ViewGroup As XtremeCalendarControl.CalendarViewGroup, ByVal Events As XtremeCalendarControl.CalendarEvents) If Events.Count > 0 Then Dim i As Long For i = Events.Count - 1 To 0 Step -1 If Not Events(i).CustomProperties("name") = "" Then If Not Events(i).CustomProperties("name") = strName Then Events.Remove i End If End If Next End If End Sub Here is another version: This assumes you have some BOOL that specifies when filtering is enabled (bFilterMode). Also assumes your filter text is stored in a global variable (sFilterText) The sample simply compares the Subject of the event to some text, if they match, then the event will be displayed, if they don't match, it is not displayed. This is only visual, no data is removed from the database. Obviously you can improve on the compare, the following sample assumes an exact match. Private Sub CalendarControl_PrePopulate(ByVal ViewGroup As XtremeCalendarControl.CalendarViewGroup, ByVal Events As XtremeCalendarControl.CalendarEvents) Dim pEvent As CalendarEvent Dim x As Integer x = 0 For Each pEvent In Events If bFilterMode Then If pEvent.Subject <> sFilterText Then Events.Remove x End If x = x + 1 End If Next End Sub Hope this helps

rahulcjain Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 24 April 2012 Status: Offline Points: 3	Post Options Post Reply Quote rahulcjain Report Post Thanks(0) Quote Reply Posted: 22 October 2012 at 10:15am
	Hi how do i retrieve list of upcoming events report of the calendar.