Codejock Developer Community : In Acc ; Activeview in Report = Activeview in Form

Codejock Developer Community : In Acc ; Activeview in Report = Activeview in Form http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sat, 30 May 2026 00:57:06 +0000 Fri, 02 May 2008 16:53:14 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=10459 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[In Acc ; Activeview in Report = Activeview in Form : Dear, In Access, Is it possible...]]> http://forum.codejock.com/forum_posts.asp?TID=10459&PID=34582&title=in-acc-activeview-in-report-activeview-in-form#34582 Author: LeJi
Subject: 10459
Posted: 02 May 2008 at 4:53pm

Dear,

In Access, Is it possible to have on an Report exactly the same activeview that on a form,

I tested the code below, but if I select 3 days in the form I do not find them in the Report ?

Can you help me

In advance Merci

Jacky

Private Sub Report_Open(Cancel As Integer)
    Dim ObjCalendarFrms As CalendarControl
    Dim ObjCalendar As CalendarControl
    Set ObjCalendarFrms = Forms!PlanningCalendar!CalendarControl1.Object
    Set ObjCalendar = Me.wndCalendar.Object
    Call PlanningPopulate(ObjCalendar)
    ObjCalendar.VisualTheme = xtpCalendarThemeOffice2007
    ObjCalendar.ViewType = ObjCalendarFrms.ViewType
    ObjCalendar.DayView.TimeScale = ObjCalendarFrms.DayView.TimeScale
    ObjCalendar.PrintOptions.PrintFromToExactly = False
    ObjCalendar.ActiveView.ShowDay ObjCalendarFrms.ActiveView.Days(0).Date, ObjCalendarFrms.ActiveView.Days(ObjCalendarFrms.ActiveView.DaysCount - 1).Date
    'Me.wndCalendar.Object.PrintOptions.PrintDateHeader = False

End Sub

]]> Fri, 02 May 2008 16:53:14 +0000 http://forum.codejock.com/forum_posts.asp?TID=10459&PID=34582&title=in-acc-activeview-in-report-activeview-in-form#34582