Hi experts!
I have a report programm.created which i would like to have it
grouped by a field. How do i have it done by code?
Rgds Penta

Hi,

   I think all you need to do is to click on either the form header, page header, or detail, and then right click and select sorting and grouping. Then select the item you want to group on, and select Keep Together, and select Whole Group, or With First Detail.

HTH


mmcdonal

Problem is i need the whole report been done by code. Why ? Because i have a
lay-out that wont be filled by normal interactive controls. So when i have
the report programmatically created the controls can be placed exactly where
needed with the distance necessary which are bellow the limits we will have
with design view. So far so good. Now the problem is to have a chosen field
in the Report Source to be coded as GroupOn. Why ? I dont want this field
(employee name) repeated every line on the report.
Thanks for ur care,
rgds P

Hi Penta,

You can use the application command CreateGroupLevel

DoCmd.OpenReport "MyReport", acViewDesign
Application.CreateGroupLevel "MyReport", "GroupName", True, True
DoCmd.OpenReport "MyReport", acViewPreview

NOTE - You have to open the report first in design view, to add the group, then you can open normally.

Any Good?

Jon

Thanks Jon,
I've tried the command u mention. My problem is i dont know how to programmatically accomplish the transfer of the grouping on field from the detail section to the GroupHeader section so it wont be repeated every line on the report.
rgds p

Move it in the report design view. If it can group on that field, you can move it from the detail section to the group header section with no ill effects. I do this all the time.


mmcdonal

I must be doing something wrong. BTW i want it done by code and not by design
view. I've tried again the CreateGroupLevel command and when the report is
previewed the field is grouped but the value of the field is repeated on
every line. If i have the report opened in design view i can cut the field
from the detail section and paste it to the groupheader resulting on the
target i'm aiming. But i need this done by CODE !
Any help will be welcome,
P

Should i after running the CreateGroupLevel run a command CreateReportControl
so the field would be created on the GroupLevel ? If that would work i could next delete on the detail section the field grouped on the header . But till now i could not have it working.
rgds P.

Penta,

That is exactly what you need to do. create the group, add the control to the group. Don't add the control to the detail atall.

    'Create Empty report based on normal
    Application.CreateReport CurrentProject.Path & "\" & CurrentProject.Name, "Normal"

    DoCmd.RunCommand acCmdSave 'Save a temp copy
    strRptName = Screen.ActiveReport.Name 'Get report name

    Screen.ActiveReport.RecordSource = "tbl_Clients" 'Set recordsource
    'Create Group
    Application.CreateGroupLevel strRptName, "Grouping Field", True, True
    'Create Group Control
    Application.CreateReportControl strRptName, acTextBox, acGroupLevel1Header, , , 200, 200, 2000, 200
    Screen.ActiveReport.Controls(0).ControlSource = "Client Name"


Good Luck

Jon,
I've tried to code using ur way but i've been no lucky.
Here is the code i'm using with no success on grouping on the first field.
As a matter of fact when i try using the specific command CreateGroupLevel...
it goes to error trap. The way bellow the code runs the report but with no
grouping on the first field. Would u suggest any alteration so it runs
a report the way it should ?

'Create a report with a RecordSource assignment
Set rpt1 = CreateReport
rpt1.RecordSource = "SELECT * FROM ReportSource Query"
rpt1.PageHeaderSection.Height = 300 'tentar mudar altura do cabeçalho
rpt1.Section("Detail").Height = 265 '365

'Add page column label and text box for Código
Set txt1 = CreateReportControl(rpt1.Name, acTextBox, _
    acDetail, , "Código")
txt1.Name = "txtCódigo"
txt1.Height = 265 'tentar mudar altura da text box
Set lbl1 = CreateReportControl(rpt1.Name, acLabel, _
    acPageHeader)
lbl1.Name = "lblCódigo"
lbl1.Caption = "Código"
lbl1.Width = txt1.Width
lbl1.Height = 365 'txt1.Height
lbl1.FontBold = True

'Add page column label and text box for EVENTO
'Set the width of this column at 2700 twips, which is
'different than the default setting of 1440 twips.
'wid1 = txt1.Width
Set txt1 = CreateReportControl(rpt1.Name, acTextBox, _
    acDetail, , "EVENTO", constLeft)
txt1.Name = "txtDia"
txt1.Width = 1550 ' 1440
Set lbl1 = CreateReportControl(rpt1.Name, acLabel, _
    acPageHeader, , , constLeft)
lbl1.Name = "lblDia"
lbl1.Caption = "Dia"
lbl1.Width = 2700
lbl1.Height = txt1.Height
lbl1.FontBold = True
...
etc.
If u need the complete code please ask me.
Thks u so much for ur care,
rgds P