Change the colour of a records font, based on value in field Multiple Item Forms

[Redbeard]

I am trying to change the font colour of certain records in a Multiple Item Form based on what value is in a Combo-box. The code below works for a single record view form but not the multi. It will change all the records displayed to the colour of which ever record I am currently on. Is there a way of making it work so that only the records with the value I have set appear with the colour I have set?

Private Sub Form_Current()
'0 is for black
    '255 is for red
    '2337696 is dark yellow OnLoan
 
If Forms!frmFormlist![CurrentLocationSite].Value = "Deaccessioned" Then
        ChangeFontColor ("255")
    Else
        ChangeFontColor ("0")
    End If
 
    If Forms!frmFormlist![CurrentLocationSite].Value = "On Loan" Then
        ChangeFontColor ("2337696")
 
    End If
 End Sub

Public Sub ChangeFontColor(color As String)
    Forms!frmFormlist![txtAccNum].ForeColor = color
    Forms!frmFormlist![ObjectName].ForeColor = color
    Forms!frmFormlist![ObjectType].ForeColor = color
    Forms!frmFormlist![CurrentLocationSite].ForeColor = color
    Forms!frmFormlist![PermanentLocationSite].ForeColor = color
    Forms!frmFormlist![Subject/Image].ForeColor = color
End Sub

[TheSmileyCoder]

Nope.

But you can use conditional formating to colour a single field on your continuos form. (or apply conditional formatting to all fields). However conditional formattign seems to be a bit sluggish when I have used it.

[NeoPa]

Smiley's absolutely right about that. See Why Values in Unbound Form Controls Don't Persist for a fuller explanation.

[Redbeard]

Thanks guys, has you have saved me time trying to figure how to do something that is not possible. Also Thanks NeoPa for the artical... I now understand why.

[NeoPa]

Very pleased to hear it Redbeard :-)

Knowing to/not to do something is one thing. Understanding why is so much better.

[mshmyob]

What version of Access are you using? If using AC2007 above you may find this helpful.http://bytes.com/topic/access/insigh...imited-colours

cheers,