OnPrint Function Error

Marsh,

I didn't change anything. I clicked to the left on the first line of
UpdateToc and it changed the line to red and added a dot. I exited that
window and went to report preview and then the error msg popped up. I went
back and compared the code with what I copied form Northwind and all is
still the same.
Pam

"Marshall Barton" wrote in message
...
We're going backwards ;-)

That message implies that the UpdateToc function can not be
found. Did you do something else to change things around.

S P E C I A L N O T E
Do not edit any code in the report's module while in break
mode (a line highlighted in yellow). Use Debug - Stop to
end code execution and switch the report back to design view
before editing anything in the module.
--
Marsh
MVP [MS Access]


Pam wrote:
I did as you suggested and am now getting error msg: Access can't find the
macro: '=UpdateToc(Nz([PartNumber], "Unknown Part"), [Report])'


"Marshall Barton" wrote
Try placing a break point on the first line in the UpdateToc
function (just clisk on the left margin of the line and it
will turn dark red when it's set). Then switch the report
to Preview and the code will stop when it hits the break
point. See what you can learn from stepping through from
there.

I've included the code I'm using.
Hopefully,
you will be able to tell why this won't work for me.

Option Compare Database

Dim db As DAO.Database
Dim TocTable As DAO.Recordset


Function InitToc()
Set db = CurrentDb()
db.Execute "Delete* From [Table Of Contents]"
Set TocTable = db.OpenRecordset("Table Of Contents", dbOpenTable)
TocTable.Index = "Description"

End Function

Function UpdateToc(TocEntry As String, Rpt As Report)
TocTable.Seek "=", TocEntry

If TocTable.NoMatch Then
TocTable.AddNew
TocTable!Description = TocEntry
TocTable![Page Number] = Rpt.Page
TocTable.Update
End If

End Function
OnOpen Property for report
=InitToc()

OnPrint Property for group (partnumber) header
=UpdateToc([PartNumber],[Report])

Marsh,

I've got it working and you're going to think I'm such a moron. The text
box for the field PartNumber was named Text68. When I changed the code to
read =UpdateToc([Text68], Report), it worked and I felt like an idiot for
overlooking it. I was reading the group header title on report design.

Thank you for your help and time. As always, it is greatly appreciated.
Pam

"Marshall Barton" wrote in message
...
We're going backwards ;-)

That message implies that the UpdateToc function can not be
found. Did you do something else to change things around.

S P E C I A L N O T E
Do not edit any code in the report's module while in break
mode (a line highlighted in yellow). Use Debug - Stop to
end code execution and switch the report back to design view
before editing anything in the module.
--
Marsh
MVP [MS Access]


Pam wrote:
I did as you suggested and am now getting error msg: Access can't find the
macro: '=UpdateToc(Nz([PartNumber], "Unknown Part"), [Report])'


"Marshall Barton" wrote
Try placing a break point on the first line in the UpdateToc
function (just clisk on the left margin of the line and it
will turn dark red when it's set). Then switch the report
to Preview and the code will stop when it hits the break
point. See what you can learn from stepping through from
there.

I've included the code I'm using.
Hopefully,
you will be able to tell why this won't work for me.

Option Compare Database

Dim db As DAO.Database
Dim TocTable As DAO.Recordset


Function InitToc()
Set db = CurrentDb()
db.Execute "Delete* From [Table Of Contents]"
Set TocTable = db.OpenRecordset("Table Of Contents", dbOpenTable)
TocTable.Index = "Description"

End Function

Function UpdateToc(TocEntry As String, Rpt As Report)
TocTable.Seek "=", TocEntry

If TocTable.NoMatch Then
TocTable.AddNew
TocTable!Description = TocEntry
TocTable![Page Number] = Rpt.Page
TocTable.Update
End If

End Function
OnOpen Property for report
=InitToc()

OnPrint Property for group (partnumber) header
=UpdateToc([PartNumber],[Report])

That kind of mistake can be very difficult to notice. I
guess both of us should up the priority of double checking
the names of everything in the code being discussed.
--
Marsh
MVP [MS Access]


Pam wrote:
I've got it working and you're going to think I'm such a moron. The text
box for the field PartNumber was named Text68. When I changed the code to
read =UpdateToc([Text68], Report), it worked and I felt like an idiot for
overlooking it. I was reading the group header title on report design.

"Marshall Barton" wrote
That message implies that the UpdateToc function can not be
found. Did you do something else to change things around.

S P E C I A L N O T E
Do not edit any code in the report's module while in break
mode (a line highlighted in yellow). Use Debug - Stop to
end code execution and switch the report back to design view
before editing anything in the module.