VBAでのアクセスカラーコードの設定

Question

Accessデータベースのテキストボックスの背景色の設定に問題があります。特定の条件が満たされたら、色を赤に変更したい。

デザインビューでは、テキストボックスのバックカラープロパティを赤に設定しました。これは '＃ED1C24'として表示されます。フォームビューでフォームを表示すると、コントロールは正しく選択された赤色で表示されます。

しかし、この値をVBAコード（Text1.Backcolor = "＃ED1C24"）に入れると、型の不一致エラーが発生します。

これを16進数（Text1.Backcolor = & HED1C24）に変更しようとしましたが、コントロールが青色に変わりました。

ご協力いただければ幸いです。ありがとう。

Answer 1

VBAでのカラーコードの形式は、あなたの場合はHEX

をRGBまたはロングではなく、最も簡単な方法は、HEXからロングに変換する関数を呼び出すことです：

Public Function Color_Hex_To_Long(strColor As String) As Long 
    Dim iRed As Integer 
    Dim iGreen As Integer 
    Dim iBlue As Integer 

    strColor = Replace(strColor, "#", "") 
    strColor = Right("000000" & strColor, 6) 
    iBlue = Val("&H" & Mid(strColor, 1, 2)) 
    iGreen = Val("&H" & Mid(strColor, 3, 2)) 
    iRed = Val("&H" & Mid(strColor, 5, 2)) 

    Color_Hex_To_Long = RGB(iRed, iGreen, iBlue) 
End Function 

は、それを使用しますこのような：

Text1.BackColor = Color_Hex_To_Long("#ED1C24") 

Answer 2

私はあなたの質問に答えなければならないこのまさにこの問題に関するブログを書きました。

http://www.jht.co.uk/access-colour-color-codes/

ここではコードです。

Public Function HTMLColour(HTMLCode As String, Optional Red As Variant, _ 
Optional Green As Variant, Optional Blue As Variant) As Long 
On Error GoTo HTMLColour_Error 

‘Converts an HTML colour code number to a long interger 
‘Also returns the constituent R,G & B components through supplied parameters 

Dim intR As Integer, intG As Integer, intB As Integer 
Dim strHTML As String 

‘Strip # prefix if supplied 
If Len(HTMLCode) < 6 Then Exit Function 
strHTML = Right(HTMLCode, 6) 

‘Extract R, G, B values 
intR = CInt(“&H” & Mid(strHTML, 1, 2)) 
intG = CInt(“&H” & Mid(strHTML, 3, 2)) 
intB = CInt(“&H” & Mid(strHTML, 5, 2)) 

‘Return optional parameters 
If Not IsMissing(Red) Then Red = intR 
If Not IsMissing(Green) Then Green = intG 
If Not IsMissing(Blue) Then Blue = intB 

‘Convert RGB to Long integer 
HTMLColour = RGB(intR, intG, intB) 

HTMLColour_Exit: 
Exit Function 

HTMLColour_Error: 
MsgBox Err.Description, vbExclamation, “Function HTMLColour” 
Resume HTMLColour_Exit 

エンド機能

は、この情報がお役に立てば幸いです。