Change Form Background Colour

[Emma35]

Hi All i'm stuck again !
I have a strange one this time....i'm using a Form whose background color is grey. On that Form there is an option group with two buttons on it. I've been asked to make the Form change it's background color depending on which option button is selected. So when neither button is pressed the Form background is grey....when Option 1 is selected it turns green and when Option 2 is selected it turns Red. Can this be done ?

Thanks
Em

[ranman256]

yes and no.
no ,you cant have NO option. 1 button is always on.

yes, you can change the background. The FRAME (box) that contains the buttons holds the value.
each button must have a different value set....1,2,3

so select the frame, property, events
on the Afterupdate event, put this code

 sub frame12_afterupate()
   select case frame12.value
      case 1
           me.background = vbGreen
      case 2
           me.background = vbRed
   end select
end sub

[cyanidem]

Private Sub YourOptionGroup_AfterUpdate()
    Select Case YourOptionGroup.Value
        Case 1
            Me.Detail.BackColor = vbGreen
        Case 2
            Me.Detail.BackColor = vbRed
        Case Else
            Me.Detail.BackColor = RGB(192, 192, 192) 'I don't know code for grey ;)
    End Select
End Sub

Edit:
Hah, posted at the same exact time as Ranman. But actually you can have option box with no value I think. if there's no default value set for it and form loads the option box has no value. If you call that AfterUpdate procedure on FormLoad it will change bkg colour to grey.
Edit2:
Just checked out of curiosity and you can also set option group value to null (not by clicking on option buttons but "from outside").

[Emma35]

Thanks for the help again guys....i tried both suggestions but they're not working for me. Ranman i get an error message with the word 'background' highlighted in yellow and cyanidem nothing happens when i make a selection ?

[cyanidem]

Can you show us the code you have?

[Emma35]

This is what i currently have in the AfterUpdate event of the option group

Private Sub FrameSelect_AfterUpdate()
Select Case FrameSelect.Value
      Case 1
           Me.Detail.BackColor = vbGreen
      Case 2
           Me.Detail.BackColor = vbRed
   End Select
End Sub

[cyanidem]

That should work. Works for me anyway.
Can you confirm your buttons return Option Value 1 and 2 respectively?
If so, maybe you could upload your database? Stripped of confidential data of course.

[Emma35]

Yes my option values are one and two. When i added the check boxes to the form i can't even see the checkmark when i check them ?

[cyanidem]

I don't know why but you're right, nothing worked in your test db straight after I opened it. I had to delete this option group and create a new one and it works with exactly same code, didn't even touch it... So maybe try this?

[Emma35]

Ok just created a new option group and put the code back in to the AfterUpdate event and still nothing. I've checked the security settings and everything is ok. Would I need to change the names on the buttons in the group aswell ?

[CJ_London]

The reason you are having a problem is the option group returns 1 or 2 whilst the field it is bound to is a yes/no field - change the options to 0 and -1 and modify the code and the form will change color

[Emma35]

Ah yes that did it....well spotted sir. Thank you all again for your help