Predmet:Re: zbrajanje polja

---

pretpostavljam da se radi o textboxovima
Postavi svakom od njih svojstvo tag na primer na 4

Dim ctl As Control
Dim i As Integer
Dim suma As Integer
suma = 0
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox And ctl.Tag = 4 Then
i = ctl.Value
suma = suma + i
End If

Next ctl