Solved

Different Color Per Record on Continuous Subform

Posted on 2007-11-26
23
423 Views
Last Modified: 2012-06-27
I have a continuous subform that displays records with color (RGB) data.  I would like each record to display a color "chip" field whose color is based on the RGB values that are also present in each record.  I have code that sets this color for each record (using the On Current method), but all records on the subform change to the current record's color value when changing records.

Is there any way to set the color by record, and have it display correctly so that the user does not have to select each individual record to see the color display?

Thanks!

I am using Access 2007, Win XP Pro (SP2).
0
Comment
Question by:Donovan Moore
  • 11
  • 6
  • 3
  • +1
23 Comments
 
LVL 75
ID: 20352268
You can use Conditional Formatting.

here is the basic info

First ... a short tutortial
http://www.simply-access.com/ConditionalFormattingIntroduction.html

In VBA code:

http://msdn2.microsoft.com/en-us/library/aa139965(office.10).aspx

And then from the Access Help File:
--------------------------
0
 
LVL 75
ID: 20352280
"but all records on the subform change to the current record's color value when changing records."

Which is because physically there are only one set of controls on a continuous form.

mx
0
 

Author Comment

by:Donovan Moore
ID: 20352385
I don't believe Conditional Formatting will work in this case.  I need each color chip to use the specific RGB values per record.

I have created an image that might better explain what I'm looking for (you'll need to copy and paste):

http://s6.photobucket.com/albums/y207/SSURORG/ColorValues/Misc/?action=view¤t=ColorChipExample.jpg

Thanks again.
0
 

Author Comment

by:Donovan Moore
ID: 20352396
0
 
LVL 75
ID: 20352430
Sorry ... I missed that ... the RGB part. I see what you mean now.

The only way I could see that being done would be controlling CF via VBA code ... which gives you a lot more flexibility that using the CF wizard.

How many different RGB combinations are we talking about here?

mx

0
 

Author Comment

by:Donovan Moore
ID: 20352468
"How many different RGB combinations are we talking about here?"

Hoo boy.  Potentially 255 cubed.  The entire sRGB255 color spectrum I suppose.  Which will only get more complicated once Deep Color is instituted...4096 cubed.

I might start looking at controlling CF via VBA...if that seems plausible.
0
 
LVL 75
ID: 20352515
"I might start looking at controlling CF via VBA...if that seems plausible."

Humm .... with THAT many combinations, that could be ... interesting!  Because basically, it's going to be ... If Some Condition, Display Some RGB Color.  Yikes!

You *might* get some info form this:
http://www.lebans.com/conditionalformatting.htm

however, it's a different situation ... but ... you might find something useful in Steven's code.

mx
0
 
LVL 3

Expert Comment

by:incrediblejohn
ID: 20354033
Is this a start:

Me.txtID.FormatConditions(0).BackColor = RGB(255,240,240)
Me.txtID.FormatConditions(1).BackColor = RGB(240,255,240)
Me.txtID.FormatConditions(2).BackColor = RGB(240,240,255)
0
 
LVL 75
ID: 20354183
Ethx - what is the condition(s) the determine what the RGB color should be ?

mx
0
 
LVL 75
ID: 20354188
Interesting - form Help:

FormatConditions Property
See AlsoApplies ToExampleSpecificsYou can use the FormatConditions property to return a read-only reference to the FormatConditions collection and its related properties.

expression.FormatConditions
expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks
This property is available only by using Visual Basic.

Conditional formatting can also be set on a combo box or text box from the Conditional Formatting dialog box. The Conditional Formatting dialog box is available by clicking Conditional Formatting on the Format menu when a form is in Design view.

Example
The following example sets format properties for an existing conditional format for the "Textbox1" control.

With forms("forms1").Controls("Textbox1").FormatConditions(1)
    .BackColor = RGB(255,255,255)
    .FontBold = True
    .ForeColor = RGB(255,0,0)
End With

0
 

Author Comment

by:Donovan Moore
ID: 20354506
Thanks for the help DatabaseMX and incrediblejohn...

As far as the RGB conditions go...well, the RGB values are stored for each Color Value.  I have a database with over 30,000 colors - Pantone Matching System (PMS) colors, Pantone Textiles, Pantone Goe System colors, Pantone Process Colors, Robison-Anton threads, Madeira threads, Toyo Inks, etc., etc., etc.  Each color value can have a set (or multiple sets) of RGB, HTML, CIE-L*ab, CMYK, Formula Mixes, etc. information attached to it.  I store multiple color spaces as well, and each color space will have different RGB colors.  And, I store historical values as well.

Probably more info than you need (!)...
0
Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

 
LVL 3

Expert Comment

by:incrediblejohn
ID: 20355493
The problem isn't finally getting the color you want using VBA/VB in code. The problem is that the continuos forms setting only references the current record when you reference the textbox. In other words, all the other rows would go back to nothing if the record selector is not on them. You might have to build a custom grid. What you want can be done pretty easy in dynamic html. I guess you could embed a browser control in your form, hahaha
0
 
LVL 3

Expert Comment

by:incrediblejohn
ID: 20355500
Also, there is a hack using a hidden txtBox on the header section above the detail where you could change the color of just the selected row. I've done that many times, but the other rows won't remember your colors.

You could also build a whole ton of labels in rows to fake a grid and set their bg color at runtime. Then hack a solution to edit the record (new form).
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 20374437
Ethx,

I am working on a sample...

I'll keep you posted.
;)
0
 

Author Comment

by:Donovan Moore
ID: 20380033
Thanks boaq2000...I appreciate it!
0
 

Author Comment

by:Donovan Moore
ID: 20429436
Not trying to pressure, but any progress?

Thanks.
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 20430763
Oh!
:O

OK, I try to work on it a little at a time, in my spare time.
We'll say ...by Monday it should be ready.

I have some spare time this weekend

JeffCoachman
0
 

Author Comment

by:Donovan Moore
ID: 20430908
No problem...again, I appreciate your help!
0
 

Author Comment

by:Donovan Moore
ID: 20497515
Just bumpin' this one up again...
0
 
LVL 74

Expert Comment

by:Jeffrey Coachman
ID: 20498240
Opps benn busy at work
Umm, let's say Monday?
0
 

Author Comment

by:Donovan Moore
ID: 20499421
No problem!
0
 

Author Comment

by:Donovan Moore
ID: 20686170
Just checking in again...
0
 

Accepted Solution

by:
Donovan Moore earned 0 total points
ID: 20963102
I'm going to go ahead and close this one out...
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

This article is a continuation or rather an extension from Cascading Combos (http://www.experts-exchange.com/A_5949.html) and builds on examples developed in detail there. It should be understandable alone, but I recommend reading the previous artic…
In Debugging – Part 1, you learned the basics of the debugging process. You learned how to avoid bugs, as well as how to utilize the Immediate window in the debugging process. This article takes things to the next level by showing you how you can us…
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

920 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now