Ms access 基于值向文本框添加颜色

access报告具有以下脚本。 报告有许多记录（或数据行），每个记录都有文本框

CompColor

。 因此，根据您在报告中单击的文本框，报告将所有

CompColor

文本框的颜色设置相同。如何根据在该文本框中输入的值使每个值正确

Private Sub Report_Current()
Select Case Me.CompColor
    Case "Green"
        Me.CompColor.BackColor = vbGreen
    Case "Red"
        Me.CompColor.BackColor = vbRed
    Case "Yellow"
        Me.CompColor.BackColor = vbYellow
    Case Else
        Me.CompColor.BackColor = vbWhite
End Select
End Sub

使用