Referencing an option group

  • Thread starter Thread starter DS
  • Start date Start date
D

DS

I want to change the label in an Option Group from Black to red if the
option field has focus. I tried to put the code on the on focus of each
option. That work until I changed the record. Then even if the Optio
was checked off it did'nt turn red until I clicked one of the options.
Any help appreciated.
Thanks
DS
 
DS said:
I want to change the label in an Option Group from Black to red if the
option field has focus. I tried to put the code on the on focus of
each option. That work until I changed the record. Then even if the
Optio was checked off it did'nt turn red until I clicked one of the
options. Any help appreciated.
Thanks
DS
Click to expand...

Put the same code in the Current event of your form.
 
Rick said:
Put the same code in the Current event of your form.
Click to expand...
Thanks Rick. It works! But is there an easier way than this....

If Forms!DaysTerm!Frame8 = 1 Then
Me.Label12.ForeColor = vbRed
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbBlack
ElseIf Forms!DaysTerm!Frame8 = 2 Then
Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbRed
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbBlack
ElseIf Forms!DaysTerm!Frame8 = 3 Then
Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbRed
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbBlack
ElseIf Forms!DaysTerm!Frame8 = 4 Then
Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbRed
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbBlack
ElseIf Forms!DaysTerm!Frame8 = 5 Then
Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbRed
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbBlack
ElseIf Forms!DaysTerm!Frame8 = 6 Then
Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbRed
Me.Label24.ForeColor = vbBlack
ElseIf Forms!DaysTerm!Frame8 = 7 Then
Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbRed
End If

Once again Thanks
DS
 
DS said:
Thanks Rick. It works! But is there an easier way than this....
Click to expand...
[your code snipped]

Just to make it shorter you can set them all to black initially and then
only change the one to red.

Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbBlack

Select Case Me!Frame8
Case 1
Me.Label12.ForeColor = vbRed
Case 2
Me.Label14.ForeColor = vbRed
Case 3
Me.Label16.ForeColor = vbRed
Case 4
Me.Label18.ForeColor = vbRed
Case 5
Me.Label20.ForeColor = vbRed
Case 6
Me.Label22.ForeColor = vbRed
Case 7
Me.Label24.ForeColor = vbRed
End Select
 
Rick said:
DS said:
Thanks Rick. It works! But is there an easier way than this....
Click to expand...

[your code snipped]

Just to make it shorter you can set them all to black initially and then
only change the one to red.

Me.Label12.ForeColor = vbBlack
Me.Label14.ForeColor = vbBlack
Me.Label16.ForeColor = vbBlack
Me.Label18.ForeColor = vbBlack
Me.Label20.ForeColor = vbBlack
Me.Label22.ForeColor = vbBlack
Me.Label24.ForeColor = vbBlack

Select Case Me!Frame8
Case 1
Me.Label12.ForeColor = vbRed
Case 2
Me.Label14.ForeColor = vbRed
Case 3
Me.Label16.ForeColor = vbRed
Case 4
Me.Label18.ForeColor = vbRed
Case 5
Me.Label20.ForeColor = vbRed
Case 6
Me.Label22.ForeColor = vbRed
Case 7
Me.Label24.ForeColor = vbRed
End Select
Click to expand...
Worked Great Rick!
you've taught me something new!
Thank You
DS
 
Back
Top