Table of Contents for 2 separate Reports

[pharrison74]

Never mind I was being dumb as always...However I do see that title twice now.

[cyanidem]

Have you set different title in UpdateToc() function in each report?

[pharrison74]

Yeah it is all setup like you said as far as I can see.

[cyanidem]

Check also group&sort configuration. Or upload your db so I can check it.

[pharrison74]

Testing_Litigation_DB1.zip

Here you go. Figure this is easier then dealing with my dumb ass..

Thanks again.
Pete

[cyanidem]

Ok.
That "Title" textbox needs to be in Title Header section, not in Description Header
Just move it there and you're good.

[pharrison74]

Thought that might be it. How do I moved the Title header above the description header? Or do I have to delete both and start again?

[cyanidem]

Just change group&sort options, headers will move accordingly.

[pharrison74]

Ok, so everything is working, however it is still showing all entries are on page 1. As well for some reason I have to print preview Decisions release last or it won't show on the table of contents list.

[cyanidem]

Well, aren't they on page(s) 1 of relevant reports? It counts pages of each report separately so...
Also, one report has InitToc() function in its Open event, so that one has to be printed first. If you want it to be "Decision released" then move InitToc() to that one and print it first.
Or remove it completely and call it somehow (some button Click event i.e.) before printing any report and then the printing order won't matter.

[pharrison74]

Even with that change it still puts Awaiting Decisions first even when print previewing Decisions first.

Yeah, I have had to make 3 separate reports that will actually once printed out be one. I am emulating a report we have in word. So it will need to count the pages correctly somehow if possible.

[cyanidem]

Even with that change it still puts Awaiting Decisions first even when print previewing Decisions first.

It's because you have ToC report sorted by Title (alphabetically). Maybe try add some numbers to the title parameter? Like "I. Decisions Released", "II. Awaiting Decisions" or whatever suits you.

Yeah, I have had to make 3 separate reports that will actually once printed out be one. I am emulating a report we have in word. So it will need to count the pages correctly somehow if possible.

I guess you could make one master report and place those 3 as subreports? Worth a try but will probably need some changes in code.

[pharrison74]

Ok will make that change. Never done sub reports but it is worth a try will do some research on it.


Thank you

[cyanidem]

Here's another idea, can't test it now but you may try this:
1. Make some changes (marked in red) to your module code:

Option Compare Database
Option Explicit
         
Dim db As Database
Dim toctable As Recordset
Public NoOfPages As Integer




Function InitToc()
            Dim qd As QueryDef
            NoOfPages = 0
            Set db = CurrentDb()
            Set qd = db.CreateQueryDef _
                ("", "Delete * From [Table1]")
            qd.Execute
            qd.Close
            Set toctable = db.OpenRecordset("Table1", _
               DB_OPEN_TABLE)
            toctable.Index = "Case_Name"
         End Function
         
Function UpdateToc(tocentry As String, Rpt As Report, sTitle As String)
   toctable.Seek "=", tocentry
   If toctable.NoMatch Then
      toctable.AddNew
      toctable!Case_Name = tocentry
      toctable![page number] = NoOfPages + 1
      toctable!Title = sTitle
      toctable.Update
   End If
End Function

And add this code to OnPrint event of Page Footer of every report (not ToC report):

    NoOfPages = Report.Page

The rest remains the same: print preview each report, cycle through pages then print ToC report.
If it doesn't work as expected, we'll try fine tune it later

[pharrison74]

Put the code in. Threw an error. Guessing we need something in this line.. Function UpdateToc(tocentry As String, Rpt As Report, sTitle As String)

could be completely wrong on that lol.




And as well a variable is not set. Highlights the following