根据值为文本框添加颜色

Question

访问报告包含以下脚本。 该报告包含许多记录（或数据行），每个记录都有文本框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

Answer 1

使用conditional formatting。