Number Report Headers

#1 (**permalink**) 28-Jul-2006, 08:42 AM

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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/14005-number-report-headers.html
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.
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005

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

*

#2 (**permalink**) 28-Jul-2006, 08:42 AM

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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005

"Annette Hawthorne" Hawthorne@discussions.microsoft.com> wrote in
message news:F5084923-695F-4D41-98EE-2E954552D37F@microsoft.com...
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
>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
>
>

#3 (**permalink**) 28-Jul-2006, 08:42 AM

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

"Annette Hawthorne" Hawthorne@discussions.microsoft.com> wrote in
message news:F5084923-695F-4D41-98EE-2E954552D37F@microsoft.com...
>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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
> 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
>
>

--
----------------------------------------
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
I am using the free version of SPAMfighter for private users.
It has removed 4367 spam emails to date.
Paying users do not have this message in their emails.
Get the free SPAMfighter here: http://www.spamfighter.com/len

#4 (**permalink**) 28-Jul-2006, 08:42 AM

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

"Pieter Wijnen" wrote:
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005

> 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
>
>
> "Annette Hawthorne" Hawthorne@discussions.microsoft.com> wrote in
> message news:F5084923-695F-4D41-98EE-2E954552D37F@microsoft.com...
> >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.
> >
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
> > 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
> >
> >
>
>
>

#5 (**permalink**) 28-Jul-2006, 08:42 AM

Okay I found it and got it to work

THANKS!!!!!!

"Annette Hawthorne" wrote:

> Small problem, I learned access by trail and error....so how do I get to the
> "Report Code"?
>
> "Pieter Wijnen" wrote:
>
> > 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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
> > NextNumber = NextNumber +1
> > Me.DisplayNumber.Caption = NextNumber ' might as well use a Label for this
> > End Sub
> >
> > HTH
> >
> > Pieter
> >
> >
> > "Annette Hawthorne" Hawthorne@discussions.microsoft.com> wrote in
> > message news:F5084923-695F-4D41-98EE-2E954552D37F@microsoft.com...
> > >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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
> > >
> > > 3. Fort Carson
> > > Smith, Jane
> > >
> > >
> >
> >
> >

#6 (**permalink**) 28-Jul-2006, 08:42 AM

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 ) 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

"Annette Hawthorne" wrote in
message news:36135B1E-F0D4-42DA-90B3-CBE053FE095B@microsoft.com...
> Small problem, I learned access by trail and error....so how do I get to
> the
> "Report Code"?
>
> "Pieter Wijnen" wrote:
>
>> 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
>>
>>
>> "Annette Hawthorne" Hawthorne@discussions.microsoft.com> wrote
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
>> in
>> message news:F5084923-695F-4D41-98EE-2E954552D37F@microsoft.com...
>> >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
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
>> >
>> > 1. Fort Sill
>> > Smith, James
>> > Jones, Mary
>> >
>> > 2. Fort Hood
>> > Jones, Richard
>> >
>> > 3. Fort Carson
>> > Smith, Jane
>> >
>> >
>>
>>
>>

#7 (**permalink**) 28-Jul-2006, 08:42 AM

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 ) 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

"Annette Hawthorne" wrote in
message news:36135B1E-F0D4-42DA-90B3-CBE053FE095B@microsoft.com...
> Small problem, I learned access by trail and error....so how do I get to
> the
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=14005
> "Report Code"?
>
> "Pieter Wijnen" wrote:
>
>> 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
>>
>>
>> "Annette Hawthorne" Hawthorne@discussions.microsoft.com> wrote
>> in
>> message news:F5084923-695F-4D41-98EE-2E954552D37F@microsoft.com...
>> >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
>> >
>> >
>>
>>
>>

--
----------------------------------------
I am using the free version of SPAMfighter for private users.
It has removed 4367 spam emails to date.
Paying users do not have this message in their emails.
Get the free SPAMfighter here: http://www.spamfighter.com/len