Hey.
I have multiple Combo's on Multiple tabs on a form. I want to change the color of each of the combo's background based on selected value (After Update). I want to have 1 public function to change the color. If I call the public function from the AfterUpdate for each combo, how can I pass the specific info to the public function to know which combo to change??
Code:
Private Sub BusinessColor1Combo_AfterUpdate(What Do I pass???)
Call Set_Commbo_Grade_Color
End Sub
Private Sub BusinessColor2Combo_AfterUpdate(What Do I pass???)
Call Set_Commbo_Grade_Color
End Sub
Private Sub Set_Commbo_Grade_Color(?? How do I know which one to change color??? PassedCombo)
Select Case PassedCombo
Case "R", "r"
PassedCombo.BackColor = RGB(255, 0, 0)
PassedCombo.ForeColor = RGB(255, 255, 255)
Case "Y", "y"
PassedCombo.BackColor = RGB(255, 255, 0)
PassedCombo.ForeColor = RGB(0, 0, 0)
Case "G", "g"
PassedCombo.BackColor = RGB(0, 100, 0)
PassedCombo.ForeColor = RGB(0, 0, 0)
Case "O", "o"
PassedCombo.BackColor = RGB(255, 97, 3)
PassedCombo.ForeColor = RGB(0, 0, 0)
Case Else
PassedCombo.BackColor = RGB(255, 255, 255)
PassedCombo.ForeColor = RGB(0, 0, 0)
End Select
End Sub
Thanks.
Steve, Harrisburg, PA USA