Calendar - Selecting an event

Selecting an event

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: http://forum.codejock.com/forum_posts.asp?TID=4930
Printed Date: 22 November 2024 at 3:22pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: Selecting an event

Posted By: tomgriff
Subject: Selecting an event
Date Posted: 31 August 2006 at 1:37am

Hi,

I have a problem with selecting an event in the calendar.

I have a client database in access. When I add an appointment in the calendar, I also add the appointment in the Client DB. I also add the event id to the client db.

I show the appointments for each client in a grid on the client info page.

I want to dbl-clk on an appointment in the grid and have the calendar open with the appointment selected and centered in the calendar.

I have the calendar opening, and I am using the setselection to highlight the time for the appointment. The calendar does not move the select into view if it is late in the day.

This is the code I am using on the grid_dbl-clk

frmMain.ShowPanes PANE_APPOINTMENT_CALENDAR
With frmAppointmentCalendar
    .wndDatePicker.EnsureVisible dteApptDate
    .wndDatePicker.Select dteApptDate
    .calCalendar.ActiveView.ShowDay dteApptDate
    .calCalendar.ActiveView.SetSelection ModEvent.StartTime, ModEvent.EndTime, False
    .calCalendar.RedrawControl
End With

I am using Calendar 10.2

I would appreciate any help.

Thanks in advance.

Replies:

Posted By: sserge
Date Posted: 31 August 2006 at 8:49am

Hi,

As far as I understand, you're trying to scroll in a Day view (up or down). In this case you should use DayView.ScrollV method.

So, the body of your method could be as follows:


wndDatePicker.EnsureVisible dteApptDate
wndDatePicker.Select dteApptDate
calCalendar.ActiveView.ShowDay dteApptDate
calCalendar.DayView.ScrollV calCalendar.DayView.GetCellNumber(TimeValue(ModEvent.StartTime))
calCalendar.ActiveView.SetSelection ModEvent.StartTime, ModEvent.EndTime, False
calCalendar.Populate

--
WBR,
Serge

Posted By: tomgriff
Date Posted: 31 August 2006 at 12:18pm

Hello,

Thanks for the help.

The DayScroll works perfect for putting the setselection into the calendar veiw when it is late in the day.

The thing that is happening is that the appointment (event) is not being selected, the time period behind the appoinment (event) is being selected. I would like for the actual appointment (event) to be selected.

Once again, thanks for the help.

Posted By: sserge
Date Posted: 31 August 2006 at 12:58pm

Ok, if you also want to select this appointment view, add a following piece of code just before calling .Populate:


Dim ve As CalendarViewEvent
For Each ve In calCalendar.ActiveView(0)
    If ve.Event.Id = ModEvent.Id Then calCalendar.ActiveView.SelectViewEvent ve, True
Next

ps: if you also want a top blue selection border to be visible, scroll day view to Cell Number - 1 of event's start time.

--
WBR,
Serge

Posted By: tomgriff
Date Posted: 31 August 2006 at 2:55pm

Thanks for the quick response.

I will give this a try.

This forum is a great resource for the controls.

Posted By: tomgriff
Date Posted: 31 August 2006 at 7:09pm

Hello again,

I tried the code you sent me in the previous reply.


 
Dim ModEvent As CalendarEvent
Dim ve As CalendarViewEvent
 
iApptID = NZ(Me.grdClientDataApptDate.ItemData(Me.grdClientDataApptDate.ItemIndex), 0)
lngEventID = CLng(NZ(VLookup("EventID", GetDBName(), "tblDataClientApptDate", "ApptID = " & iApptID), 0))
dteApptDate = NZ(VLookup("ApptDate", GetDBName(), "tblDataClientApptDate", "ApptID = " & iApptID), 0)
Set ModEvent = frmAppointmentCalendar.calCalendar.DataProvider.GetEvent(lngEventID)
If ModEvent Is Nothing Then
  MsgBox "There is a problem with the appointment you are trying to open.", vbCritical + vbOKOnly
Else
  frmMain.ShowPanes PANE_APPOINTMENT_CALENDAR
  With frmAppointmentCalendar
    .wndDatePicker.EnsureVisible dteApptDate
    .wndDatePicker.Select dteApptDate
    .calCalendar.ActiveView.ShowDay dteApptDate
    .calCalendar.DayView.ScrollV .calCalendar.DayView.GetCellNumber(TimeValue(ModEvent.StartTime))
     For Each ve In .calCalendar.ActiveView(0)
      If ve.Event.Id = ModEvent.Id Then .calCalendar.ActiveView.SelectViewEvent ve, True
     Next
    .calCalendar.Populate
  End With
End If

it seems that ve is always nothing, the for each loop is not run, so there is no event selected.

I must have something wrong here.