Userform help

[rholdren]

This is my first attempt at building a Userform. It was actually going well and everything was working until I realized that one of my boxes was not posting a result. On the form I have a series of questions with Points awarded based on the answer. For example: It the answer to question 1 is worth 10 points the person will click on a OptionButton for 10 points and 10 will show in a TextBox next to it. This works all the way down the sheet for 13 questions but I couldn't get the boxes to add and populate in a TextBox named Your Total Points. Then it occurred to me that this is because they are all text boxes. I have tried variety of things to get it to add but the best I could get was if Q1 was 10 and Q2 was 5 Your Points were 105.

I did find a thread on here were someone had a similar problem but solved it themselves so I never really got to see what it was that they solved.

How do I get the each text boxes to display results as numeric? Any help would be greatly appreciated.

Thanks

 

[Fluff]

Try something like

Clng(Textbox1.value) + Clng(textbox2.value)

 

[Rick Rothstein]

TextBoxes contain text, not numbers. To be able to add the numbers in them, try wrapping the textbox value in a Val function call inside of your adding code.

 

[rholdren]

where would I put the Clng? would that go in the UserForm code or in the Sub for the actual text box? here is what I had last. I would set the CSRPoints.Value to 0 but in text

Private Sub Points1_Change()
CSRPoints.Value = 0 + Points1.Value
End Sub

 

[jproffer]

Maybe this: ?

When TB13 is changed, it will check to see that all TBs are filled, and if so will total them into TbYourTotal

Private Sub TextBox13_Change()
Dim i As Long
Dim j As Long
Dim ttl As Double

    For i = 1 To 13
        If Me.Controls("Textbox" & i).Value = "" Then
            MsgBox "Please select a point value for question " & i
        End If
    Next i

    For j = 1 To 13
        ttl = ttl + Me.Controls("Textbox" & j).Value
    Next j
    
    Me.TbYourTotal.Value = ttl
    
End Sub

 

[rholdren]

using the above didn't change anything I am getting 105105510101055 in my total box.

I did use the Clng(Textbox1.value) + Clng(textbox2.value) and it works fine as long as I don't string more than four of them together.

 

[Fluff]

Try Rick's suggestion of using Val rather than Clng

 

[jproffer]

using the above didn't change anything I am getting 105105510101055 in my total box.

I did use the Clng(Textbox1.value) + Clng(textbox2.value) and it works fine as long as I don't string more than four of them together.

That's odd. I made a UF, with 13 TBs with default names (Textbox1, 2, 3, etc) and a TB named like above, and put 1, 2, 3, 4......13 in the textboxes, and it put 91 in the total TB.

 

[Fluff]

@jproffer
Whilst your code works, if the OP didn't declare ttl then you'll get a string result.

 

[jproffer]

Ahhhh, gotcha. I never think of that kind of stuff.

I'm an option explicit kinda guy lol