Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2762
  • Last Modified:

MS Access Reports (Reset Page Number and total page count for each section of a report

Hi All,

I am trying to get the page number reset on change of a patient_id. I have a report which runs in to 2 to 3 pages per patient but there are cases where the pages are just one per patient.  I followed the eg in the Microsoft knoledge base article http://support.microsoft.com/default.aspx?scid=kb;en-us;306127

I have followed the steps as per the document but the page number does not get set correctly. If i step through the code the number of pages in the grp is shown correctly but when it displays the report it is wrong. for eg if i have one page report it shows number of pages as 2..

Here is the code i have so far


Option Compare Database
Option Explicit
Dim GrpPages As Recordset

Private Sub GroupHeader1_Format(Cancel As Integer, FormatCount As Integer)
' Set page number to 1 when a new group starts.

    Page = 1

End Sub


Public Function GetGrpPages()
GrpPages.Seek "=", Me![Text27]
If Not GrpPages.NoMatch Then
    ' GetGrpPages = "Page " & Me.Page & " of " & GrpPages![PageNumber]
     GetGrpPages = GrpPages![PageNumber]
End If

End Function

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
GetGrpPages
'GrpPages.Seek "=", Trim(Me!Text27)
If Not GrpPages.NoMatch Then
    If GrpPages![PageNumber] < Me.Page Then
        GrpPages.Edit
        GrpPages![PageNumber] = Me.Page
        GrpPages.Update
    End If
Else
    On Error GoTo ErrHandler
    GrpPages.AddNew
    GrpPages![Categoryname] = Me![Text27]
    GrpPages![PageNumber] = Me.Page
    GrpPages.Update
End If
GetGrpPages
ErrHandler:
If Err.Number <> 0 Then
    MsgBox Err.Number & ":  " & Err.description
    Err.Clear
    Exit Sub
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
    CurrentDb.Execute "delete * from [CategoryGroupPages];", 0
    Set GrpPages = CurrentDb.OpenRecordset("CategoryGroupPages")
    GrpPages.Index = "primarykey"
End Sub

Category Group Pages is a table created in Access with Category Name and PageNumber as fields in the report with category name as PK.

Any tip to solve this issue is highly appreciated

Thanks

0
sramkris
Asked:
sramkris
  • 2
1 Solution
 
Mighty_SillyCommented:
un-remark this line
 remove this --> < '  > GrpPages.Seek "=", Trim(Me!Text27)
0
 
sramkrisAuthor Commented:
I had unremarked this line but the result was the same so i tried calling the function..Is there something which is not getting set..

Thanks

0
 
Mighty_SillyCommented:
hmm... I'll check on this.  I used this exact same MSKB and it worked for me wonderfully.

-Silly-
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now