In Acc ; Activeview in Report = Activeview in Form

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
LeJi Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 02 May 2008 Status: Offline Points: 1	Post Options Post Reply Quote LeJi Report Post Thanks(0) Quote Reply Topic: In Acc ; Activeview in Report = Activeview in Form 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