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.
Code:
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