Shape Effect on Toggle Buttons

[dimoc]

I have a questions database. On my Form, I have an Option Group with 4 toggles for the correct answers. Each of the toggles, is tied to the Answer's column in the database. Currently, I have Shape Effect => Bevel => Circle for all 4 buttons no matter what their value is. I cannot figure out a way to change to Shape Effect => Bevel => Relaxed Inset if a specific toggle button is set to the Answer.

[Ruegen]

I would set the property of the control

the button being the control

the property being the control's property

VBA would be me.control.property = change

now I don't know what your control name is, what property you want to change it to.

As for the how

You could use an if or a case statement in VBA.

[dimoc]

So I have this but I get an error. "The expresion On Load you entered as the event property setting prodecued the following error: Procedure declation does not match description of event or procedure having the same name.


[Private Sub optgroup_Answers_BeforeUpdate()
Select Case Me.optgroup_Answers
Case 1
Me.toggleA.Bevel = BevelEffectRelaxedInset
Case 2
Me.toggleB.Bevel = BevelEffectRelaxedInset
Case 3
Me.toggleC.Bevel = BevelEffectRelaxedInset
Case 4
Me.toggleD.Bevel = BevelEffectRelaxedInset
End Select
End Sub]

[Ruegen]

http://office.microsoft.com/en-au/ac...080201162.aspx

give it the right value not beveleffectrelaxedinset

i.e. 2

bevel effect relaxed inset is the effect not the value

[amrut]

The following worked for me. I have used numbers instead of alphabets to loop through them easily.Give it a try

Sub ToggleEffect()
    Dim i As Integer
    For i = 1 To 3
        If i = Me.optgroup_Answers.Value Then
            Me("Toggle" & i).Bevel = 2   ' Play with this value to get the right effect
        Else
            Me("Toggle" & i).Bevel = 0
        End If
    Next i
End Sub

[dimoc]

Thank you amrut and Ruegen. It worked.