Reuse a code

[santnok]

Hi

I have this code for do a for each OptionButton in a frame

Dim ctrlOptionButton As Control
    For Each ctrlOptionButton In frameVarselTekniskeAlarmer.Controls
    If (TypeName(ctrlOptionButton) = "OptionButton") Then
    ctrlOptionButton.Value = False
    End If
Next

frameVarselTekniskeAlarmer = name of my frame.

I have lots of frames on my userforms and every frame have OptionButton, CheckBox, ComboBox.
So insted of make many of the same code as above, I hoped to maybe Reuse the same code in a function maybe?
Make one code that works for OptionButton, one for CheckBox, one for ComboBox and reuse this code on every userform that I need to use this code.

I'am not so good at vba excel and the code above I have find it with a google search
Hope someone understand what I mean here

 

[ranman256]

put this code into a module. call it from every form using:

DisableCtls me

sub DisableCtls(pFrm as form)
Dim ctrlOptionButton As Control

    For Each ctrlOptionButton In pFrm.frameVarselTekniskeAlarmer.Controls
       If (TypeName(ctrlOptionButton) = "OptionButton") Then   ctrlOptionButton.Value = False
   Next
end sub

 

[mikerickson]

Try these routines.

Sub ClearOptionButtonsInFrame(aFrame As MSForms.Frame)
    Dim oneControl As MSForms.Control
    For Each oneControl In aFrame.Controls
        If TypeName(oneControl) = "OptionButton" Then oneControl.Value = False
    Next oneControl
End Sub

Sub ClearCheckBoxesInFrame(aFrame As MSForms.Frame)
    Dim oneControl As MSForms.Control
    For Each oneControl In aFrame.Controls
        If TypeName(oneControl) = "CheckBox" Then oneControl.Value = False
    Next oneControl
End Sub

Sub ClearComboBoxesInFrame(aFrame As MSForms.Frame)
    Dim oneControl As MSForms.Control
    For Each oneControl In aFrame.Controls
        If TypeName(oneControl) = "ComboBox" Then oneControl.ListIndex = -1
    Next oneControl
End Sub

You would call them with code like

Call ClearOptionButtonsInFrame(frameVarselTekniskeAlarmer)

If you have frames within frames, the coding would be a bit more complicated if you wanted to address only the controls in the outer frame and leave the inner frame alone.

 

[santnok]

Thanks for answers

mikerickson your code works perfect, thanks
if I need to fix somthing within another frame I will ask you

Thanks again for help

 

[santnok]

Hi again

Is it possible to do the same with this code

For Each ctrlframeEUSinfo In frameEUSinfo.Controls
        ctrlframeEUSinfo.Enabled = False
    Next ctrlframeEUSinfo

Here I have maked one for frame to be on and one that turns off the frame Enabled on/off
My code looks like this.

Public Sub F_frameMottattAlarmAV()

Dim ctrlframe1 As Control
    For Each ctrlframe1 In frmAlarmstasjon.frameMottattAlarm.Controls
        ctrlframe1.Enabled = True
    Next ctrlframe1

End Sub

Public Sub F_frameMottattSabotasjePAA()

Dim ctrlframe1 As Control
    For Each ctrlframe1 In frmAlarmstasjon.frameMottattSabotasje.Controls
        ctrlframe1.Enabled = True
    Next ctrlframe1
End Sub

Can I also here make only one for Enable = False and one for Enable = True and just use a Call function for this??

 

[mikerickson]

Modify the subs like this

Sub SetOptionButtonsInFrameToValue(aFrame As MSForms.Frame, allValue as Boolean)
    Dim oneControl As MSForms.Control
    For Each oneControl In aFrame.Controls
        If TypeName(oneControl) = "OptionButton" Then oneControl.Value = allValue
    Next oneControl
End Sub

And call it with

Call SetOptionButtonsInFrameTo(frmAlarmstasjon.frameMottattAlarm, True)

For the ComboButton routine allValue should be data type Long.

 

[santnok]

Hi
Thank you for the code, but I think this code does something else I hope it will do.
What I want the code to do is only make the Frame Enabled or Disabled (Enabled = True or False).


Thanks for all help

 

[santnok]

Please

 

[mikerickson]

Have you tried setting the .Enabled property of the Frame directly?

 

[santnok]

Hi, I will try again, but I have done it like this.
When you open a userform I have done it so all my frames are not .Enebled. so I hope not I must do everything over