값을 기준으로 텍스트 상자에 색상 추가

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을 사용하십시오.