Conditional formatting

  • Thread starter Thread starter maceslin
  • Start date Start date
M

maceslin

The following code to change the color of the text is working

Private Sub cboClassification_AfterUpdate()
Select Case cboClassification.Value
Case 6
cboClassification.ForeColor = vbRed
Case 7
cboClassification.ForeColor = vbRed
Case 8
cboClassification.ForeColor = vbGreen
Case Else
cboClassification.ForeColor = vbBlack
End Select
End Sub

but

when I move to the next record and open cboClassification all entries
in the drop down are the color from what was last selected. How do I
get cboClassification drop downs to revert to black when I enter into
a new record while at the same time keep old records as slected?

hope this makes sense
Dave
 
define them as black at the beginning of your code module
--
NTC







- Show quoted text -
Click to expand...

inserted
cboClassification.FontColor= vbBlack

before Select Case statement with no change
 
inserted
cboClassification.FontColor= vbBlack

before Select Case statement with no change- Hide quoted text -

- Show quoted text -
Click to expand...

make that ForeColor not FontColor
 
Back
Top