Converting Hex code to Access color Display

I have an Access Database and I need a little programming done. I have a field where a hex code is inputted, ie #000000 and I need Access to take that code and convert it into the appropriate color. Then display the color in a box. I have tried to do this, but I can't seem to get Access to display the appropriate color in the box. I know my vb is off somewhere, I just don't know where. Currently I have 3 main fields in use, a Color Name Field that is Unbound, a Color Code field that holds the Hex code, and the Color Number field, that should display the appropriate color that Access uses. I also have a box that is named ColorView, and it should display the information from the Color Number field. Everything works except the conversion from Hex to Number is wrong. For instance Now, if you input the Hex code of #0000FF you get the number 255 and the color Red. What you should get is the color Blue and the number 16711680. Please Help.
peanutomaAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
shanesuebsahakarnConnect With a Mentor Commented:
Reverse the field. If the text is always input in a consistant format (#000000), you can do this:

lngColor=Val("&h" & Right$(MyColorStr,2) & Mid$(MyColorStr,4,2) & Mid$(MyColorStr,2,2))

That should give you Access' RGB color.
0
 
flavoCommented:
Access (97) has these colours

0      Black      8      Gray
1      Blue      9      Light Blue
2      Green      10      Light Green
3      Cyan      11      Light Cyan
4      Red      12      Light Red
5      Magenta      13      Light Magenta
6      Yellow      14      Light Yellow
7      White      15      Bright White


can use QBColor(color) to return the number of the colour

ie

QBColor(1) 'blue =  16711680

QbColor returns a Long representing the RGB color code corresponding to the specified color number.
0
 
peanutomaAuthor Commented:
Let me try them out and see if they work for what I want to do.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.