Joe Rojas
JRojas at tnco-inc.com
Mon May 16 17:09:41 CDT 2005
Hi All,
I have a report with 13 label boxes in the detail section of the report.
I perform a calculation in the Detail_Print sub routine.
The result of this calculation determines whether the BackColor of each
label box is either White (16777215) or Grey (12632256).
This calculation is performed for each label box each time the Detail_Print
routine is ran. This is intentional.
The problem that I am having is that the label boxes do not have the correct
BackColor displayed on the screen nor is it correct when printed.
In fact my second column is the only one that appears correct. All the
others remain at there default color, white.
I stared at my calculations for a long time and test many different things
but with no luck.
Here is my code snipet that runs in the Detail_Print routine:
For idx = 1 To 13
If (TotCount * minAQL) = 1 Then
Me("lblM" & idx).Caption = "1;" & Me("lblAQL" & idx).Tag
Me("lblM" & idx).BackColor = 16777215
ElseIf Me("lblAQL" & idx).Tag = "0" Then
Me("lblM" & idx).Caption = "0;" & Me("lblAQL" & idx).Tag
Me("lblM" & idx).BackColor = 12632256
ElseIf ((TotCount * minAQL) Mod CInt(Me("lblAQL" & idx).Tag)) > 0
Then
Me("lblM" & idx).Caption = ">0;" & Me("lblAQL" & idx).Tag
Me("lblM" & idx).BackColor = 12632256
Else
Me("lblM" & idx).Caption = "Z;" & Me("lblAQL" & idx).Tag
Me("lblM" & idx).BackColor = 16777215
End If
Next
The Me("lblM" & idx).Caption = "1;" & Me("lblAQL" & idx).Tag lines are for
debugging.
Anyone see anything glaring that would cause this?
Thanks!
JR
This electronic transmission is strictly confidential to TNCO, Inc. and
intended solely for the addressee. It may contain information which is
covered by legal, professional, or other privileges. If you are not the
intended addressee, or someone authorized by the intended addressee to
receive transmissions on behalf of the addressee, you must not retain,
disclose in any form, copy, or take any action in reliance on this
transmission. If you have received this transmission in error, please notify
the sender as soon as possible and destroy this message. While TNCO, Inc.
uses virus protection, the recipient should check this email and any
attachments for the presence of viruses. TNCO, Inc. accepts no liability for
any damage caused by any virus transmitted by this email.