Hi All
I have a Form and Subform with 40 something Combo, Text and Memo controls.
Users populate the form and print it. Great! all works well....er no. The
user decides to change a few controls values here and there and then want the
changes highlighted on screen and on the printed report. So I insert this
code on the form

Private Sub FrameFinish_AfterUpdate()
If Me.FrameFinish.Value <> Me.FrameFinish.OldValue Then
 With Me.FrameFinish
    .FontWeight = 700
    .ForeColor = vbRed
    .Tag = "T"
   End With
End If
End Sub

And Screen formatting is sorted I then insert the following code in the
Report and the report formatting is sorted

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If Forms!frm_CPS_Details_mgt.Form!SubForm1!FrameFinish.Tag = "T" Then
   With Me.FrameFinish
       .FontWeight = 700
       .FontSize = 12
       .ForeColor = RGB(255, 0, 0)
   End With
Else
   With Me.FrameFinish
       .FontWeight = 400
       .ForeSize = 10
       .ForeColor = RGB(0, 0, 0)
       End With
End If
End Sub

But with 40 + controls setting this up and maintenance is going to be a real
bummer.

There must be a better way!! Help!

johnb