How to Automatically Group

[SSgtJ]

I have a report that is based on a form and the form filters the report automatically very nicely. The next step that I would like to take is can I change the grouping on my report from my form?


Lets say form frmFilter has 6 controls on it 3 for filtering and 3 for grouping. grp1 grp2 and grp3. the filtering part I have down, now I jsut need to figure out how to automatically group the report by grp1 grp2 or grp3. Any help would be great.

Thanks,

[pbaldy]

I'm not sure I'm clear on exactly what you're trying to do, but you can change the grouping in the report's open event:

Me.GroupLevel(0).ControlSource = "CarType"

You could use a form control instead of hard-coding, as long as the control contained the field name (that's part of a routine that tests an option group on a form).

[SSgtJ]

I have a report that is filtered by a form. This Report is normally grouped by MFG, Then by Type. I would like to control the grouping function from the form as in to say If I filter by MFG then I only want to group by Type instead of the default MFG then Type. Ultimately I would like to have a control on the form that allows me to filter and group by any combination I attached a sample very basic but you can see the 2 reports. rptDenomMix is by Number then by type which is great but now I want to be able to click something in the form to lets say take out the type grouping leaving the Number group giving me whats in the copy rptDenomMix.

So in a nutshell I would like the ability to add and remove groupings but using the form as like a dashboard for this process.
hope this helps!

Thanks

[pbaldy]

I don't have time to look at the sample right now, but here's the full code from above, which changes or eliminates the grouping based on user selections (an option group on a form). Post back if you're still stuck:

Private Sub Report_Open(Cancel As Integer)
  Select Case Forms!frmReports.fraGrouping
    Case 1 'sort/group on car type
      Me.GroupLevel(0).ControlSource = "CarType"
      Me.txtGroup.ControlSource = "CarDesc"
    Case 2 'sort/group on company
      Me.GroupLevel(0).ControlSource = "Company"
      Me.txtGroup.ControlSource = "Company"
    Case 3 'sort on date/time, no grouping
      Me.GroupLevel(0).ControlSource = "DispDateTime"
      Me.txtGroup.ControlSource = "DispDateTime"
      Me.GroupHeader0.Visible = False
  End Select
End Sub