Microsoft Access 掲示板

ColorContantsで定義されているものだけなら、変換関数を自作してもいいかも。

標準モジュール

Public Function GetColorNumber(ColorName As String) As Long
    Select Case ColorName
    Case "Black":   GetColorNumber = vbBlack
    Case "Red":     GetColorNumber = vbRed
    Case "Green":   GetColorNumber = vbGreen
    Case "Yellow":  GetColorNumber = vbYellow
    Case "Blue":    GetColorNumber = vbBlue
    Case "Magenta": GetColorNumber = vbMagenta
    Case "Cyan":    GetColorNumber = vbCyan
    Case "White":   GetColorNumber = vbWhite
    Case Else:      GetColorNumber = -1
    End Select
End Function

Dim STR as String
STR = Dlookup("ForeColor","***","商品コード = '" & Me.商品コード & "'")
Me.商品名.ForeColor = GetColorNumber(STR)