userform multiple textbox user input loop stuck on 42nd loop due to run-time error

[gsharad]

Hi,

I am facing a run-time error when I run my VBA to collect user data in 52 text boxes thru loop code. Apart from set of 52 boxes, I have 2 more sets of 52 txtboxs however they are enabled false and used to show % & other calc based on txtbox in 1st set.
When I run the VBA and start loop to collect data and store it in txtbox, the code gives run-time error at 42nd loop. It works fine till 41st iteration.

Private Sub Calculate Sum()
Dim Grandtot as Long
Grandtot = 0

Dim i as long
For i=1 to 52
landingpageForm1.TextBox150.Value = landingpageForm1.TextBox150.Value + _
 Val(landingpageForm1.Controls("TextBox" & i).Value)
Next
End Sub

Private Sub userform_clikc()

TextBox1.Value = ""
.
.
.
.
.
.
.

TextBox51.Value = ""

[\Code]

 

[gsharad]

 

[mikerickson]

Does the 42'nd text box have a Change event?

 

[gsharad]

No change event till now, I will add them once i am able to complete the calculation loop for 52 txtboxes

 

[mikerickson]

What is the error that happens on the 42 loop?

 

[gsharad]

Run time error '-2147024809(80070057)
Could not fine the specified object

 

[mikerickson]

It sounds like you don't have a TextBox42, perhaps a space got into the name of that text box.

 

[gsharad]

I double checked everything.. the txt is fine, no gaps, nothing different and all 52 txtbox exists

 

[mikerickson]

Have you tested with something like

Sub UserForm_Click()
    Dim I as Long
    I = 42
    Me.Caption = Me.Controls("TextBox" & 42).Text
End Sub

Have you tried using the .Text property instead of .Value

landingpageForm1.TextBox150.Value = landingpageForm1.TextBox150.Value + _
 Val(landingpageForm1.Controls("TextBox" & i).Text)

 

[gsharad]

HI
I was able to resolve, after sequentially arranging the textboxes in the design window.
Previously they were not sequentially arranged. and I also changed the name from TextBox to CalTxtBox

Thank you for help