Solved

How do I Alternate font color as account # changes in group with suppression

Posted on 2011-02-23
4
384 Views
Last Modified: 2012-05-11
My report compares records comprised of 5 fields from 2 systems and prints a record when the records do not match. In my printing group I suppress those records that match. Often times I will print more than one record with the same account number. I need to alternate font color when the account number changes.  
I have tried a few options that were posted. One prints alternating color (does not take into consideration the account)
Shared NumberVar gr_cnt;
if ({#Record Count}) <> 0 then
gr_cnt := gr_cnt + 1;
if gr_cnt  mod 2 = 0 then
  crNoColor
else
 Crsilver

So I tried a running total that changes only when the account changes & using the above formula, but I get a Print time formula error because I am using the Next funtion. Anyone have an idea? Thanks in advance.
0
Comment
Question by:Goosie1
  • 2
  • 2
4 Comments
 
LVL 100

Expert Comment

by:mlmcc
ID: 34962193
I am not clear on what you are trying to do.

You want to change the color when the account changes
FontCOlor - Normal
Account 1234
Record1
Record2
FontColor - crSilver
Account 1235
Record1
Record2
etc

I assume you have the records grouped by account number
Simply update your count in the group header formula that sets the font color  I dont see the NEXT function being used.

Did you setup your running total to evaluate On Change of Account Group?

mlmcc


0
 

Author Comment

by:Goosie1
ID: 34962566
Sorry I will try to be more clear.
Group 1 Account - suppressed
Group 2 Service Code- suppressed
Group 3 Date- suppressed
Group 4 Formula which concatenates Account+Service Code+Date - Supress if the concatenated string matches

So I may have 5 records for account 123, but in group 4 Only 3 of them will display because they do not match.
To print I want to see Nocolor:
Account 123 Code A Date 1/1/11
Account 123 Code A Date 1/2/11
Account 123 Code B Date 1/1/11
Then the next account records that don't match would print CRSilver

I tried to use the Next function in a formula in Group 4:
@Account Count:
If Account= next(Account)then 0 else 1)
Then in the Group 4 Color(Note #Record Count is my suppression criteria):
Shared NumberVar gr_cnt;
if ({#Record Count}) <> 0 and {@Account count} = 0
then
gr_cnt := gr_cnt + 1;
if gr_cnt  mod 2 = 0 then
  crsilver
else
  crnocolor

This works for some records, but not all.
0
 
LVL 100

Accepted Solution

by:
mlmcc earned 500 total points
ID: 34963268
WHy not use the group select expert to eliminate the groups with more than 1 record.

Count({@Group4}) = 1

mlmcc
0
 

Author Closing Comment

by:Goosie1
ID: 34969964
You rock!
I hadn't thought of that!  I removed extra groups then added the count of Group 4 = 1 which cleaned up the data so much. Now it is running perfectly.
Thanks so much!
Michelle
0

Featured Post

NFR key for Veeam Backup for Microsoft Office 365

Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

So every once in a while at work I am asked to export data from one table and insert it into another on a different server.  I hate doing this.  There's so many different tables and data types.  Some column data needs quoted and some doesn't.  What …
In this article I will describe the Copy Database Wizard method as one possible migration process and I will add the extra tasks needed for an upgrade when and where is applied so it will cover all.
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question