Number Report Headers

[Guest]

I am doing a report and I need to number the report headers. It is currently
breaking it down by location with the location field on the report set to no
duplicates. It will give me a 1 on the first entry but that is all. If I
try to do a running sum it numbers each name that falls under that location.

Example of what I want, please tell me this is possible

1. Fort Sill
Smith, James
Jones, Mary

2. Fort Hood
Jones, Richard

3. Fort Carson
Smith, Jane

 

[Pieter Wijnen]

Sure - Use Report Code

(Report Module General Section)
Dim NextNumber As Long

Sub Report_OnPrint()
NextNumber =0 ' Case it's opened in preview first
End Sub

Sub GroupHeader_Format(FormatCount, Cancel)
If FormatCount > 1 Then Exit Sub ' Allready done
NextNumber = NextNumber +1
Me.DisplayNumber.Caption = NextNumber ' might as well use a Label for this
End Sub

HTH

Pieter

 

[Pieter Wijnen]

Sure - Use Report Code

(Report Module General Section)
Dim NextNumber As Long

Sub Report_OnPrint()
NextNumber =0 ' Case it's opened in preview first
End Sub

Sub GroupHeader_Format(FormatCount, Cancel)
If FormatCount > 1 Then Exit Sub ' Allready done
NextNumber = NextNumber +1
Me.DisplayNumber.Caption = NextNumber ' might as well use a Label for this
End Sub

HTH

Pieter

I am doing a report and I need to number the report headers. It is
currently
breaking it down by location with the location field on the report set to
no
duplicates. It will give me a 1 on the first entry but that is all. If I
try to do a running sum it numbers each name that falls under that
location.

Example of what I want, please tell me this is possible

1. Fort Sill
Smith, James
Jones, Mary

2. Fort Hood
Jones, Richard

3. Fort Carson
Smith, Jane

--

 

[Guest]

Small problem, I learned access by trail and error....so how do I get to the
"Report Code"?

 

[Guest]

Okay I found it and got it to work

THANKS!!!!!!

Small problem, I learned access by trail and error....so how do I get to the
"Report Code"?

 

[Pieter Wijnen]

Select the report (upper left hand corner)
in the properties box select the OnPrint Event
Press the builder icon (...)
Select Event Procedure & Ok
Paste the code for the Report_OnPrint
Go back & Repeat for the Group_header (select it etc)
Finally (or anytime you like <g>) scroll to the top of the code window
(After the Option... Options) & Paste the Dim Statement
you can review / change the code afterwards by selecting Tools/View Code
Note however that no code will be run if the associated Event doesn't have
the value [Event Procedure]

I would strongly suggest you buy a book on Access Programming though, even
if I too must admit learning it by TAE
if you plan to develop Access Applications (there weren't a lot of books
around for Access 1.0)

Pieter

PS you'll save a lot of time in the future pressing [, before hitting the
builder icon (...)
Also It's untried code <g>

 

[Pieter Wijnen]

Select the report (upper left hand corner)
in the properties box select the OnPrint Event
Press the builder icon (...)
Select Event Procedure & Ok
Paste the code for the Report_OnPrint
Go back & Repeat for the Group_header (select it etc)
Finally (or anytime you like <g>) scroll to the top of the code window
(After the Option... Options) & Paste the Dim Statement
you can review / change the code afterwards by selecting Tools/View Code
Note however that no code will be run if the associated Event doesn't have
the value [Event Procedure]

I would strongly suggest you buy a book on Access Programming though, even
if I too must admit learning it by TAE
if you plan to develop Access Applications (there weren't a lot of books
around for Access 1.0)

Pieter

PS you'll save a lot of time in the future pressing [, before hitting the
builder icon (...)
Also It's untried code <g>

Small problem, I learned access by trail and error....so how do I get to
the
"Report Code"?

--