How to set background color in pushed button of Option Group.

[AA Arens]

I use a sewt of buttons, created from the "Option Group". I would like
to have the pushed button appearing in another color, so it is more
clearier which button is pushed. How to proceed it? I am an amateur in
VB.

Bart

[Jean]

Hi Bart,

I dont know if you can set the colour of the buttons, but you CAN set
the colour of the Text on the buttons.

Assuming you have two buttons in your option group, do this:

In design mode, set the colour of the ForeColor of the button to red

Then in the AfterUpdate() of your option group, add the following code:

Private Sub fraMine_AfterUp date()

If Me.fraMine.Valu e = 1 Then
Me.btnOne.ForeC olor = 255 'red
Me.btnTwo.ForeC olor = 0 'black
Else
Me.btnOne.ForeC olor = 0 'black
Me.btnTwo.ForeC olor = 255 'red
End If

End Sub
-----------------

Now the text colour on the buttons will toggle as you move between the
two.

HTH

Jean

[AA Arens]

Jean,

Thanks for your input. It works wihtin the record.
However, when I move to the next record, the color is not accoridng to
the value of the button, pressed when passing that record. So, only the
color does not change then, but the buttonvalue (pushed or not) does.
How to solve it?

Bart

[Larry Linson]

"AA Arens" <ba***********@ gmail.com> wrote

Thanks for your input. It works wihtin
the record.
If it is in the AfterUpdate event, you can only expect the code to execute
when you take action on the OptionGroup.
However, when I move to the next
record, the color is not accoridng to
the value of the button, pressed when
passing that record. So, only the
color does not change then, but the
buttonvalue (pushed or not) does.
How to solve it?

Include similar code in the OnCurrent event (which fires when a new record
becomes the current one), assuming the Option Group is bound to a Field in
the RecordSource, so would actually have a setting.

Larry Linson
Microsoft Access MVP
Larry Linson
Microsoft Access MVP

[AA Arens]

I use more than two options, actually 7, resulting in a long VB script
(though it is working):
Can I make this script shorter? Like in the first two sections for the
Toggle 90 - 95, and for 89 + 91 - 95:

Private Sub Frame86_AfterUp date()
If Me.Frame86.Valu e = 1 Then
Me.Toggle89.For eColor = 255 'red
Me.Toggle89.Fon tWeight = 700 'bold
Me.Toggle90.For eColor = 0 'black
Me.Toggle90.Fon tWeight = 400 'normal
Me.Toggle91.For eColor = 0 'black
Me.Toggle91.Fon tWeight = 400 'normal
Me.Toggle92.For eColor = 0 'black
Me.Toggle92.Fon tWeight = 400 'normal
Me.Toggle93.For eColor = 0 'black
Me.Toggle93.Fon tWeight = 400 'normal
Me.Toggle94.For eColor = 0 'black
Me.Toggle94.Fon tWeight = 400 'normal
Me.Toggle95.For eColor = 0 'black
Me.Toggle95.Fon tWeight = 400 'normal
End If
If Me.Frame86.Valu e = 2 Then
Me.Toggle90.For eColor = 255 'red
Me.Toggle90.Fon tWeight = 700 'bold
Me.Toggle89.For eColor = 0 'black
Me.Toggle89.Fon tWeight = 400 'normal
Me.Toggle91.For eColor = 0 'black
Me.Toggle91.Fon tWeight = 400 'normal
Me.Toggle92.For eColor = 0 'black
Me.Toggle92.Fon tWeight = 400 'normal
Me.Toggle93.For eColor = 0 'black
Me.Toggle93.Fon tWeight = 400 'normal
Me.Toggle94.For eColor = 0 'black
Me.Toggle94.Fon tWeight = 400 'normal
Me.Toggle95.For eColor = 0 'black
Me.Toggle95.Fon tWeight = 400 'normal
End If

Etc..... (5 more sections follows)