Hi,

I am using the code below to change a field name to
TOTALS. The code works. However, when I print out a
report, only the TOTALS and data print out, however the
remaining field name prints, but not the data. How can I
fix this?

Here's the code:

Function ACTION_TOTALS()



Dim dbs As Database
Dim tdfTable As TableDef

Set dbs = CurrentDb
Set tdfTable = dbs.TableDefs("COPY TOTALS BY ACTION")
tdfTable.Fields("SUM OF COUNTOFACTION").Name = "TOTALS"


End Function

Try opening your report's recordsource and viewing the
records. Are there any? If so, my guess is that
your 'other' text box controls are in a grouped Section of
your report. The detail section is where those normally
belong. good luck.

>-----Original Message-----
>Hi,
>
>I am using the code below to change a field name to
>TOTALS. The code works. However, when I print out a
>report, only the TOTALS and data print out, however the
>remaining field name prints, but not the data. How can I
>fix this?
>
>Here's the code:
>
>Function ACTION_TOTALS()
>
>
>
>Dim dbs As Database
>Dim tdfTable As TableDef
>
>Set dbs = CurrentDb
>Set tdfTable = dbs.TableDefs("COPY TOTALS BY ACTION")
>tdfTable.Fields("SUM OF COUNTOFACTION").Name = "TOTALS"
>
>
>End Function
>
>.
>