data verification in VBA user form

[VBAmalta89]

I have the following lines of code but when I compile it an error is prompted saying that it couldnt find the specified object and highlights this line:

For Each Ctrl In Me.Controls("Frame" & i).Controls


The coding im using is as follows:


Private Sub FactoryNum_Change()

OnlyNumbers

Dim i As Long
Dim Ctrl As Control

If (Val(FactoryNum.Value)) > 2 Then

MsgBox "Sorry, maximum of 2 plants allowed for Calculator"

For i = 1 To Val(FactoryNum.Text)
For Each Ctrl In Me.Controls("Frame" & i).Controls
Ctrl.Enabled = True
Next Ctrl
Next i
For i = Val(FactoryNum.Text) + 1 To 2
For Each Ctrl In Me.Controls("Frame" & i).Controls
Ctrl.Enabled = False
Next Ctrl
Next i

End If

End Sub


What i want the program to do is check that the value of a text box isnt greater than 2. if it is then it prompts the user to re enter a value, if it is less then program execution can continue.

How can i achieve this?

 

[Norie]

Have you checked the names of all your controls, including the frames?

 

[VBAmalta89]

Yes. In fact the program runs if i leave out the following:

If (Val(FactoryNum.Value)) > 2 Then

MsgBox "Sorry, maximum of 2 plants allowed for Calculator"

but if i include it then i get the error i stated in my first post for some reason.

 

[VBAmalta89]

never mind i managed to solve it

thanks anyway for your time

 

[Norie]

So what was the problem?

 

[Ruddles]

If you have the time, would you post a brief description of the solution?

That might assist people who experience similar errors in the future and find your post via a forum search or Google.

 

[VBAmalta89]

yes of course:

What i did was include an else statement along with what i had. S in total i had an if then else statement rather than just an if then. the else statement would then allow the execution of teh remainder of the program.

Something basic which i forgot about when coding this section!