How can I lock the Optionbutton within some frames

[ii128]

I try to lock the Optionbutton within some frames, but I can't.

Following is my code. Any one can help me fix?


Dim ctl As Control
Dim Str() As String
Dim i1 as integer

Str = Split("fraTest,fraTest1,fraTest2,fraTest3,fraTest4,fraTest5,fraTest6,fraTest7", ",&quot

For Each ctl In Form.Controls
For i1 = LBound(Str) To UBound(Str)
If ctl.Container Is Str(i1) Then
If TypeOf ctl1 Is OptionButton Then
ctl.Locked = False
End if
End If
Next i1
Next ctl

 

[Jingpong]

Cant you do it with

fra.Enabled = False

Will it not lock the Option button in the frame named fra.

 

[ii128]

It will lock every controls in the frame, but I just like to lock the optionbuttons

 

[Jingpong]

Option Buttons doesnt have Locked property.

Why dont you try with .Enabled property.

 

[ii128]

Sorry, I should say make the .Enabled property of Optionbuttons to False within some frames

Dim ctl As Control
Dim Str() As String
Dim i1 as integer

Str = Split("fraTest,fraTest1,fraTest2,fraTest3,fraTest4,fraTest5,fraTest6,fraTest7", ",&quot

For Each ctl In Form.Controls
For i1 = LBound(Str) To UBound(Str)
If ctl.Container Is Str(i1) Then
If TypeOf ctl1 Is OptionButton Then
ctl.Enabled = False
End if
End If
Next i1
Next ctl

 

[Jingpong]

Thats Good

 

[ii128]

But my codes doesn't work.

Any help to fix my code?