Decimal to Hexadecimal Color Conversion Function

[Steve R.]

Prior to Access 2007, the property sheet for a control would return the value of a color as a decimal number. With Access 2007, the property sheet now returns the value of a control's color as a hexadecimal number. This created a problem with revising my forms when using VBA code. Through the help of this forum, I was able to develop a solution. So if you are having issues with setting a controls colors, here is one solution.

The hexadecimal number "#D8B190" is displayed when you look at the "BackColor" number for the "Detail" control under the format tab.

Me.Detail.BackColor = HTMLConvert("#D8B190")

Place the code below in a module.

Public Function HTMLConvert(strHTML As String) As Long
    Rem converts a HTML color code number such as #D8B190 to an RGB value.
    HTMLConvert = RGB(CInt("&H" & Mid(strHTML, 2, 2)), CInt("&H" & Mid(strHTML, 4, 2)), CInt("&H" & Mid(strHTML, 6, 2)))
End Function

 

[r.bolton]

Many thanks - works perfectly