conditional formatting on option box

[jj1]

I have a continuous form. On which I have a frame and three option boxes with values 1, 2 and 3 what I am trying to do if one record is selected in option box other text boxes of the same record turn red I am using this code which works perfectly expect that it's doing for all records. I want that particular record to turn red.

Private Sub Form_current()
FormatGroup
End Sub
'
Private Sub Frame53_Click()
FormatGroup
End Sub
Sub FormatGroup()
 Select Case Frame53
 Case 1
 OrderNumber1.BackColor = vbRed
 ProductName1.BackColor = vbRed
 VNumber1.BackColor = vbRed
 Case 2
 OrderNumber1.BackColor = vbYellow
 ProductName1.BackColor = vbYellow
 VNumber1.BackColor = vbYellow
 Case 3
 OrderNumber1.BackColor = vbGreen
 ProductName1.BackColor = vbGreen
 VNumber1.BackColor = vbGreen
' Case Else
' grpBooked.BackColor = vbYellow
 End Select
 End Sub

[ItsMe]

The issue is that you are using a continuous form. The form does not know how to distinguish a control from one record to the same control on another record. Although the control displays different data from the various records of the recordset, it is the same control and the Properties of any given control will be the same for each record displayed.