View Single Post
  #14 (permalink)  
Old September 14th, 2015, 04:14 PM
manoranjanh manoranjanh is offline
Registered User
Points: 3, Level: 1
Points: 3, Level: 1 Points: 3, Level: 1 Points: 3, Level: 1
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Sep 2015
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Change the parameter to Text box in the below function. This solve my problem

Function UpdateToc(TocEntry As TextBox, 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.Text

If TocTable.NoMatch Then
TocTable.AddNew
TocTable!Description = TocEntry.Text
Reply With Quote