Shows multiple Textboxes value on one Textbox, Like an autosum

[ipbr21054]

On my userform TextBox17 should show the value of multiple textboxes like an Autosum.

How is the following correctly written so its not a mile long please.

Private Sub TextBox17_Change()
TextBox17 = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)
End Sub

Thanks

 

[saboh12617]

Hello,
You can proceed like this

Private Sub TextBox17_Change()
  Dim i As Long, SumV As Double
  For i = 1 to 4
    SumV = SumV + CDbl(Controls("Textbox" & i).Value)
  Next i
End Sub

For more precisions you can look there Naming and looping userform control items

 

[ipbr21054]

I see no total when i try that ?

 

[saboh12617]

Weird, maybe you can try as you did with "Val(TextBox1.Text)" but it's more error prone. Like so :
Otherwise with no more information i don't know.

Private Sub TextBox17_Change()
  Dim i As Long, SumV As Double
  For i = 1 to 4
    SumV = SumV + Val(Controls("Textbox" & i).Text)
  Next i
End Sub

For information the "Controls" is only valid inside the UF's code. If you are outside, you need to reference the UF.

Controls object (Access) | Microsoft Learn

 

[saboh12617]

No sorry i'm stupid, you just need to write the total in the textbox. Like so :

Private Sub TextBox17_Change()
  Dim i As Long, SumV As Double
  For i = 1 to 4
    SumV = SumV + CDbl(Controls("Textbox" & i).Value)
  Next i
  ' writing the total
  TextBox17.Value = SumV
End Sub

 

[abdelfattah]

How is the following correctly written so its not a mile long please.

I don't see long
you can use"_ "after comma "," . four textboxes are not much to use loop !
here is another option

Me.TextBox17.Value = WorksheetFunction.Sum(Array(CDbl(Me.TextBox1.Value), CDbl(Me.TextBox2.Value), _
                                                                 CDbl(Me.TextBox3.Value), CDbl(Me.TextBox4.Value)))