Creating a Table of Contents

[pharrison74]

I found an article which explains it however I am having a tough time understanding it fully.
I created the table and the module they asked for . However when trying to create a procedure I am lost.


Doesn't explain where to put this code.

Link is below.

Thanks

Peter

https://support.microsoft.com/en-us/kb/131588

[ranman256]

you make a table called TOC,
empty it (delete query)
then scan thru all queries/tables and write the table.Descrption (as an append query) using VB code.

[pbaldy]

The procedures in 4 would go in the module just created. Don't name the module the same as any of the procedures.

[cyanidem]

You have to put functions InitToc and UpdateToc in module you created and then set OnPrint and OnOpen properties to relevant functions (5. and 6. on the website you linked).

[pharrison74]

Thanks for the replies, however I am completely lost.
I created the table as per the article, then in that table put the following in a module with in that table
Option Explicit
Dim db As Database
Dim toctable As Table


Then it tells me to create a procedure but I have no clue where to do that? Am I creating a report now off of the table?

[cyanidem]

I think you have it mixed up a bit.
Steps on the website are:
1. open database
2. create table "Table of Contents"
3. create a module and put some code in declarations section (top of the module)
4. in the same module below create functions (procedures) as stated
5. in report's design view set up OnOpen property
6. in report design view again set report's header's OnPrint property
7. create another report based on the table created in step 2

[pharrison74]

Ok will see what I can do.

Thanks

[pharrison74]

Ok got to 6 and getting an error.

Attachment 23621

[cyanidem]

Your attachment is not showing.

[pharrison74]

See it?

[cyanidem]

I never created a TOC, but I guess they meant something like this:

[pharrison74]

Get a compile error when I type it like that.

Seems want something in the =InitToc() brackets?
No where online can I find it needs something. Anyone got any ideas?

[pbaldy]

You can have it in code the way you were trying, but without the equals sign. The method in post 11 should work, and is what the link described.

[pharrison74]

Here is what I get when I don't use the = sign...progress..
I have the following code in a module
Option Explicit
Dim db As Database
Dim toctable As Table
Function InitToc()
' Called from the OnOpen property of the report.
' Opens the database and the table for the report.
Dim qd As QueryDef
Set db = CurrentDb()
' Delete all previous entries in the Table of Contents table.
Set qd = db.CreateQueryDef("Delete TOC Entries", "Delete * _
From [Table of Contents]")
qd.Execute
qd.Close
' Open the table.
Set toctable = db.OpenTable("Table Of Contents")
toctable.Index = "Case_Name"
Exit Function
End Function

Function UpdateToc(tocentry As String, Rpt As Report)
' Call from the OnPrint property of the section containing
' the Table Of Contents Description field. Updates the Table Of
' Contents table.
toctable.Seek "=", tocentry
If toctable.NoMatch Then
toctable.AddNew
toctable!Case_Name = tocentry
toctable![page number] = Rpt.Page
toctable.Update
End If
End Function

[cyanidem]

That code doesn't look good when I just copied/pasted it in module:


You need to correct that red line.
Also, code on the website you linked before is slightly different.
Is there [Case_Name] field in your "Table of Contents" table?