Change Report GroupLevel(n) index in VBA

[rsarracini]

Hi,



I have 3 group levels in a report (GroupLevel(0), GroupLevel(1), GroupLevel(3)). I would like to be able to change the order of these based on user input (to change the report output). How do you in VBA change the index number (n) of a report group level (eg change GroupLevel(1) to GroupLevel(3)).

I already open the report in design via code, so making the change in design mode is not a problem.
Thanks

[ranman256]

You wouldnt want to control a report in vba...too messy/compex.

Just make 3 versions of the report w 3 sort orders.
Let user pick the sort version they want.

[pbaldy]

I'd prefer not to maintain multiple copies of the same report, so I do it in code. Don't think of it as changing the index number, think of it as changing the field in each index number. Here's an example, though only with one level:

Private Sub Report_Open(Cancel As Integer)
  If Forms!frmShiftData.chkSummary = True Then
    Me.Detail.Visible = False
  End If

  Select Case Forms!frmShiftData.fraGroupBy
    Case 1    'group on dates
      Me.GroupLevel(0).ControlSource = "Enter_Date"
      Me.txtGroupHeader.ControlSource = "Enter_Date"
      Me.txtDetail.ControlSource = "Shift"
      Me.lblGroupLabel.Caption = "DOR Date"
      Me.lblDetailLabel.Caption = "Shift"
    Case 2    'group on shifts
      Me.GroupLevel(0).ControlSource = "Shift"
      Me.txtGroupHeader.ControlSource = "Shift"
      Me.txtDetail.ControlSource = "Enter_Date"
      Me.lblGroupLabel.Caption = "Shift"
      Me.lblDetailLabel.Caption = "DOR Date"
  End Select
  
End Sub