Function Find every 10th record

  • Thread starter Thread starter Charles D Clayton Jr
  • Start date Start date
C

Charles D Clayton Jr

I wanted a way to find every tenth record on a report. I made this
function which does what I want sometimes. Here is the function:

Function fCF(tens As Integer) 'function Conditional Format
'Highlite every 10th number on a report
If (tens / 10) = Int(tens / 10) Then
fCF = 1
Else
fCF = 2
End If
End Function

On the report I have an unbound text box with its control source set
to "=1" and running sum set to "over all." I apply a conditional
format for that text box using the function fCF. In the conditional
format box if I set the back color or font color, the function works
great. However, if I go to change either bold, italics or underline,
on the report it blanks out the every tenth number. I checked the
text box and there is nothing strange about any setting. There is no
event associated with anything on the report. Does anybody have any
thoughts as to why this strange occurrences happens?

Thanks,

Charles D Clayton Jr

PS - running A2K
 
Right click the textbox and choose Conditional Formatting. In the drop down
choose Expression Is. In the box to the right of this put

[NameOfTextbox] Mod 10 = 0

then click the Bold option below that and click Ok. This should give you
bold on every tenth entry.

Problems after this are usually related to the video driver, printer driver
(set for draft mode?), or the need for other patches. Have you installed
service packs 1, 2, and 3 for Office 2000? What font are you using in the
textbox, could it be one that doesn't have a Bold or Italics option? Try the
font in Word and see what you get.
 
Back
Top