Table of Contents for 2 separate Reports

[cyanidem]

Sorry for late reply, had a very busy weekend
I guess you put that:
NoOfPages = Report.Page
the same way as UpdateToc(..... etc.
This is different. You need to:
- select page footer in design mode


- on Event page of properties windows select OnPrint event
- click eclipse on the right to it
- select Event Procedure if asked


- put this code in procedure opened in VBA editor so it looks similar to this:

Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
    NoOfPages = Report.Page
End Sub

Repeat it for every report.

[pharrison74]

Ok changed the code, however still get that Variable error and when I debug it goes to the module code. Thanks for your help.

[pharrison74]

Actually never mind I figured it out. Some error in the code was calling the wrong table.
Now it works but I am still having issues with the sorting on the Table of Contents. Grouping doesn't seem to have an option other then alphabetical. Always puts Awaiting Decisions first.
As well the counting doesn't work correctly. I am not sure this is going to work without doing sub reports. As when you print out the 3 separate reports I think it will never count correctly.


Thanks
Peter

[cyanidem]

Actually never mind I figured it out. Some error in the code was calling the wrong table.
Now it works but I am still having issues with the sorting on the Table of Contents. Grouping doesn't seem to have an option other then alphabetical. Always puts Awaiting Decisions first.

True, that's why you may need to add something to title (i.e. number in front) to force sorting as you want.

As well the counting doesn't work correctly. I am not sure this is going to work without doing sub reports. As when you print out the 3 separate reports I think it will never count correctly.

Counting this way will work, I just don't have much time now to test it properly. I'll try to find a moment later on and we'll sort it out.

[pharrison74]

Ok, I really do appreciate your help on this thank you.

[cyanidem]

Ok, had a moment to work on it finally. Have a look at attached db. Counting works and sorting works as you wanted. Try to understand what and how works and if you have any question - ask

Testing_Litigation_DB1.zip

[pharrison74]

I went over the code. I did notice you added a " 1. inside the Toc settting so I included that and it is now sorting correctly. However for the life of me I don't see
why it doesn't count the pages correctly.

I did notice your code has

toctable![PageNumber] = sTitle however if I match that I get a debug error. I have to use [Page number] instead.

Other then that I am not sure what I am missing

[cyanidem]

I did notice your code has
toctable![PageNumber] = sTitle however if I match that I get a debug error. I have to use [Page number] instead.

Uhmm... not true.
There's nothing like that in my code.

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![PageNumber] = NoOfPages + 1
      toctable!Title = sTitle
      toctable.Update
   End If
End Function

I don't know where did you get it from. Maybe try download it and unzip again in different folder?
Then just open unzipped db, print preview 3 reports (rpt1... etc), then ToC report and see if it's ok (because it is on my side).

[pharrison74]

Yeah for what ever reason it works without the space in the test DB. However it is the only difference I see. Just not sure what it doesn't count that 3rd report correctly as pg 3. Here is the code that you sent me.
Mine has to have a space inbetween Page and Number.

Thanks
Pete

[cyanidem]

Oh, ok, I know what you mean now.
[Page number] is a field name in ToC table. I probably changed it on the way from [Page Number] to [PageNumber] (or opposite). Just make them the same in table and in code.
As for page numbering - there's more changes in code than those in module1. Check also code for On Page events in reports.
I know it may be confusing now, too many versions of db flying around. If you could upload your db again I'd update the code for you in it and upload it back. Just make sure there are at least few dummy records in "Legal Issues" table to produce all 3 reports, because I'm little tired of filling that table again and again

Edit:
This is how it works for me:



rpt 1 has 1 page, rpt2 - 2 pages, rpt3 - 1 page

[pharrison74]

Testing_Litigation_DB1.zip


Ok here is the newest db from my end. put some junk data in and unfortunately deleted my own data as I thought I was in the test one...LOl...Oh well will just reenter it.


Again thank you for all your help.

[cyanidem]

Hmm, it's the same db I sent you, not yours, and this one works properly
I want your db with your reports design and your data (fake of course) and your actual code.

[pharrison74]

Lol I see what I did. sorry. Here you go..Testing_Litigation_DB1.zip

[cyanidem]

Ok, this should work:

Testing_Litigation_DB1.zip

I added numbers to report names to make it more clear. You need to print them in order as number 1 runs InitToc() function that prepares ToC table.

[pharrison74]

I get a weird popup when I do print preview. I can click ok and then it is fine. Does it for all three is this normal? As well it still isn't counting correctly it shows all items on page 1 for Decisions Released but there is a page two to the report.