Microsoft Access 2016 Reports: Create Table of Contents or Index

[@marvin7604]

Hi Kirt - thanks for this tutorial. You make reference to the "Instructor Notes" for the module code. Can you advise where these can be found? Thanks.

[@Sings1961]

I was wondering the same thing...I just looked in Kirt's description expanded (RTFM) and the instructors notes appear to be part of a fee-based curriculum. Probably worth it, I'm guessing, but it does appear to require a sign up.

[@beltongraffiti4810]

Microsoft 365 Access gives a mismatch error if the text field in the ToC table has the same name as the report control supplying the text. Additionally, the ToC table must be recreated if the indexed text field needs a name change. The ToC needs only two functions. Below, ToC is the Table of Contents table with a text field "Visitor" & "Page number" integer field. Function UpdateToc(TocEntry As String, Rpt As Report, Page As Integer), the first argument is the report control feeding Visitor. Option Explicit Dim dbs As DAO.Database Dim qd As DAO.QueryDef Dim intPageCounter As Integer Dim TocTable As DAO.Recordset Function InitToc() 'Called from the OnOpen property of the report. 'Deletes contents & opens the table of contents table. Set dbs = CurrentDb() 'Delete all previous entries in Table of Contents table. Set qd = dbs.CreateQueryDef("", "Delete * From [ToC]") qd.Execute qd.Close 'Open the table. Set TocTable = dbs.OpenRecordset("ToC", dbOpenTable) TocTable.Index = "Visitor" End Function Function UpdateToc(TocEntry As String, Rpt As Report, Page As Integer) 'Called from the OnPrint property of any section header encompassing the desired control, e.g. 'Detail' TocTable.Seek "=", TocEntry If TocTable.NoMatch Then TocTable.AddNew TocTable![Visitor] = TocEntry TocTable![Page number] = Page TocTable.Update End If End Function

[@apolloFear]

Doesn't work sadly. Keep getting the Type Mismatch. Set it up Exactly as in vid.