Codejock Developer Community : Selecting an event http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 07:58:16 +0000 Thu, 31 Aug 2006 19:09:13 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=4930 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Selecting an event : Hello again, I tried the code...]]> http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15392&title=selecting-an-event#15392 Author: tomgriff
Subject: 4930
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.
 
 
]]> Thu, 31 Aug 2006 19:09:13 +0000 http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15392&title=selecting-an-event#15392 <![CDATA[Selecting an event : Thanks for the quick response. I...]]> http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15380&title=selecting-an-event#15380 Author: tomgriff
Subject: 4930
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.
 
]]> Thu, 31 Aug 2006 14:55:20 +0000 http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15380&title=selecting-an-event#15380 <![CDATA[Selecting an event : Ok, if you also want to select...]]> http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15376&title=selecting-an-event#15376 Author: sserge
Subject: 4930
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
]]> Thu, 31 Aug 2006 12:58:40 +0000 http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15376&title=selecting-an-event#15376 <![CDATA[Selecting an event : Hello, Thanks for the help. The...]]> http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15374&title=selecting-an-event#15374 Author: tomgriff
Subject: 4930
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.
 
 
]]> Thu, 31 Aug 2006 12:18:04 +0000 http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15374&title=selecting-an-event#15374 <![CDATA[Selecting an event : Hi,As far as I understand, you&#039;re...]]> http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15364&title=selecting-an-event#15364 Author: sserge
Subject: 4930
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
]]> Thu, 31 Aug 2006 08:49:36 +0000 http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15364&title=selecting-an-event#15364 <![CDATA[Selecting an event : Hi, I have a problem with selecting...]]> http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15349&title=selecting-an-event#15349 Author: tomgriff
Subject: 4930
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.
]]> Thu, 31 Aug 2006 01:37:47 +0000 http://forum.codejock.com/forum_posts.asp?TID=4930&PID=15349&title=selecting-an-event#15349