Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Number Report Headers

Discussion in 'Information Technology' started by Annette Hawthorne, Jul 28, 2006.

  1. Annette Hawthorne

    Annette Hawthorne
    Expand Collapse
    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
     
  2. Loading...

    Similar Threads Forum Date
    Shabad Numbering System New to Sikhism Dec 1, 2015
    USA A Heart Attack And The Numbers Breaking News Aug 2, 2014
    Pacific Borneo: Sikhs small in number, strong in presence Breaking News Nov 11, 2013
    World Shrinking Numbers and Growing Persecution Threaten Sikhs and Hindus in Afghanistan Breaking News Nov 7, 2013
    SciTech Mammals pick offspring’s sex to maximize number of grandchildren, study shows Breaking News Jul 11, 2013

  3. Pieter Wijnen

    Pieter Wijnen
    Expand Collapse
    Guest

    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" <Annette 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
    >
    >
     
  4. Pieter Wijnen

    Pieter Wijnen
    Expand Collapse
    Guest

    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" <Annette 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
     
  5. Annette Hawthorne

    Annette Hawthorne
    Expand Collapse
    Guest

    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" <Annette 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
    > >
    > >

    >
    >
    >
     
  6. Annette Hawthorne

    Annette Hawthorne
    Expand Collapse
    Guest

    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
    > > NextNumber = NextNumber +1
    > > Me.DisplayNumber.Caption = NextNumber ' might as well use a Label for this
    > > End Sub
    > >
    > > HTH
    > >
    > > Pieter
    > >
    > >
    > > "Annette Hawthorne" <Annette 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
    > > >
    > > >

    > >
    > >
    > >
     
  7. Pieter Wijnen

    Pieter Wijnen
    Expand Collapse
    Guest

    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>


    "Annette Hawthorne" <AnnetteHawthorne@discussions.microsoft.com> 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" <Annette 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
    >> >
    >> >

    >>
    >>
    >>
     
  8. Pieter Wijnen

    Pieter Wijnen
    Expand Collapse
    Guest

    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>


    "Annette Hawthorne" <AnnetteHawthorne@discussions.microsoft.com> 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" <Annette 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
     

Share This Page