How to toggle?

[mortgageman]

I have the following two functions. One to turn off 6 option buttons and one to turn them on. Is there any way to just have one function which toggles them?

Private Sub opTurnOffPlayerSide()
OptionButton1.Enabled = False
OptionButton2.Enabled = False
OptionButton3.Enabled = False
OptionButton4.Enabled = False
OptionButton5.Enabled = False
OptionButton6.Enabled = False
End Sub

Private Sub opTurnOnPlayerSide()
OptionButton1.Enabled = True
OptionButton2.Enabled = True
OptionButton3.Enabled = True
OptionButton4.Enabled = True
OptionButton5.Enabled = True
OptionButton6.Enabled = True
End Sub

Gene, "The Mortgage Man", Klein

 

[erik.van.geit]

Hi, Gene,
this should work

OptionButton1.Enabled = Not OptionButton1.Enabled

kind regards,
Erik

 

[just_jon]

OptionButton1.Enabled = Not OptionButton1.Enabled

 

[Norie]

Gene

Does this (untested) code work?

Private Sub opTurnOffPlayerSide() 
Dim I As Long
For I =1 to 6
     Me.Controls("OptionButton" & i).Enabled =Not Me.Controls("OptionButton" & i).Enabled
Next I
End Sub

 

[erik.van.geit]

hmmm!
just_jon, same reply but it doens't seem to work
this works for me

OptionButton1.Enabled = Not OptionButton1.Enabled = True

 

[erik.van.geit]

Hi, Norie,
and yours works, although quite same syntax
strange

 

[mortgageman]

Unless I did something wrong, none of them worked. I'll have to try again.

Gene, "The Mortgage Man", Klein

 

[mortgageman]

Ok Norie's is certainly working. It just was happening so fast (turning off, the computer moving and turning back on) that I didn't realize it. (It is kinda of like light: light moves so fast that it took some really smart people to realize that it moves at all) I didn't double check all the others. But thanks all three of you

Gene, "The Mortgage Man", Klein

 

[just_jon]

hmmm!
just_jon, same reply but it doens't seem to work
this works for me

OptionButton1.Enabled = Not OptionButton1.Enabled = True

Huh. Worked for me.

 

[erik.van.geit]

just_jon,
so this worked for you ?
OptionButton1.Enabled = Not OptionButton1.Enabled

well, now for me too

mistery ...?..!
thanks for reply anyway,
best regards,
Erik