Convert HTML Color code to Access Color Code

[Malcolm Hind]

I have HTML color codes stored in a DB - like '0000FF' (I
don't store the '#').

I want to set the Box.BackColor fill color of a rectangle to
the HTML color in an access database (rectangle is displayed
on a form) - I cannot find a way to get a color code from the
HTML code that Access can recognize ?

Any help appreciated.

Thanks

 

[Douglas J. Steele]

Function ConvertHTMLColor(HTMLColor As String) As Long
Dim strRed As String
Dim strGreen As String
Dim strBlue As String

If Len(HTMLColor) <> 6 Then
MsgBox HTMLColor & " is invalid."
Else
strRed = "&H" & Left$(HTMLColor, 2)
strGreen = "&H" & Mid$(HTMLColor, 3, 2)
strBlue = "&H" & Right$(HTMLColor, 2)
ConvertHTMLColor = RGB(CInt(strRed), CInt(strGreen), CInt(strBlue))
End If

End Function

 

[Daniel Pineault]

Take a look at

http://www.devhut.net/index.php?lang=en&id=0000000007#colors
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.

 

[Malcolm Hind]

=?Utf-8?B?RGFuaWVsIFBpbmVhdWx0?=

http://www.devhut.net/index.php?lang=en&id=0000000007#colors

Douglas & Daniel - Thanks for the help.

Douglas, your code works as requested, thank you.

Regards