enabling/disabling text boxes

[VBAmalta89]

I have a 8 frames in a user form which are activated by means of a user inputting a number in a text box, so for example, if the user enters 7 then 7 frames out of 8 are enabled.

My problem is that, within each frame i have a series of disabled text boxes which i need to remain disabled even when the fraame becomes enabled. For some reason these text boxes become enabled once the frame is enabled.

Any idea how to work round this please?

 

[Glory]

Disable the text boxes using the same code you employ to enable the frame? After the frame is enabled.

 

[VBAmalta89]

i was thinking of that but i dont know how to do it. The code i use to enable teh frames is shown below. How can i add onto it to disable the text boxes now?

Private Sub ZoneNum_Change()

    OnlyNumbers
    
    Dim i As Long
    Dim Ctrl As Control
    
        If (Val(ZoneNum.Value)) > 8 Then
    
    MsgBox "Sorry, maximum of 8 zones allowed for Calculator"
    
   Else
   
    For i = 1 To Val(ZoneNum.Text)
        For Each Ctrl In Me.Controls("Frame" & i).Controls
            Ctrl.Enabled = True
        Next Ctrl
    Next i
    For i = Val(ZoneNum.Text) + 1 To 8
        For Each Ctrl In Me.Controls("Frame" & i).Controls
            Ctrl.Enabled = False
        Next Ctrl
    Next i
    
    End If
    
End Sub

 

[Glory]

You're specifically enabling all the controls in each frame. You're not enabling/disabling the frames with that code.

All you need is something like this:

Me.Frame1.Enabled = True
Me.Frame1.Controls("TextBox1").Enabled = False

 

[VBAmalta89]

so how would i adapt the code i specified in my last post seeing that the frame is on a counter loop?

 

[Glory]

Read your post below. If I understand you correctly:

Private Sub ZoneNum_Change2()
    OnlyNumbers
 
    Dim i As Long
    Dim Ctrl As Control
 
    If (Val(ZoneNum.Value)) > 8 Then: MsgBox "Sorry, maximum of 8 zones allowed for Calculator": Exit Sub
 
    Me.Controls.Enabled = False
 
    For i = 1 To Val(ZoneNum.Text)
 
        For Each Ctrl In Me.Controls("Frame" & i)
 
            Ctrl.Enabled = True
 
        Next Ctrl
 
    Next i
 
    For i = Val(ZoneNum.Text) + 1 To 8
 
        Me.Controls("Frame" & i).Enabled = False
 
    Next i
  
End Sub

 

[VBAmalta89]

what happens is this:

There are 8 frames in teh form. The user will input a number from 1-8 in a text box and, consequently, that number of frames are enabled. So if the user enters 3 in the text box, the first 3 of the 8 frames are enabled. However, i would like the text boxes in the frame to remain disabled even when the frame is enabled by the user.

 

[Glory]

I left something in there that shouldn't be there, and screwed up some other parts. Try it out.

Private Sub ZoneNum_Change2()
 
    OnlyNumbers
 
    Dim i As Long
    Dim Ctrl As Control
 
 
If (Val(ZoneNum.Value)) > 8 Then: _
    MsgBox "Sorry, maximum of 8 zones allowed for Calculator": _
    Exit Sub
 
 
For Each Ctrl In Me.Controls
 
    Ctrl.Enabled = True
 
Next Ctrl
 
 
For i = Val(ZoneNum.Text) + 1 To 8
 
    Me.Controls("Frame" & i).Enabled = False
 
Next i
 
End Sub

Edit. More stupidity tweaks.

 

[VBAmalta89]

sorry didnt see your post..ill give it a go

much thanks for your patience

 

[VBAmalta89]

nope sorry its not working well.
the frames are remaining all enabled rather than how they were before wen only the requried number are enabled. PLus the text boxes are still enabled!