kenan 07.12.2016 19:21
Predmet:zbrajanje polja

mali problem

imam formu u kojoj ima 75 polja i polja imaju nazive od 1 do 75 (bez ikakvih drugih karaktera).
ja bih htio da saberem iznose iz tih polja sve zajedno i probo ovako al nešto mi izbacuje

B = 0
For i = 3 To 55
B = B + Form_PB800A.Fields(i - 1)
Next i

imali ko rješenje

dex 07.12.2016 20:05
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

kenan 07.12.2016 20:11
Predmet:Re: zbrajanje polja

a sta ako necu sve odjednom nego samo dio recimo od 3 do 55 kako da ih odredim

kenan 07.12.2016 20:14
Predmet:Re: zbrajanje polja

mislim da sam skonto

na polja koja hocu odredim tag i tako ih definišem

reci mi jesam li dobro skonto

dex 07.12.2016 20:21
Predmet:Re: zbrajanje polja

Jesi, ali je malo komplikovano ako hoces sa forme da zadas koja polja zelis

kenan 07.12.2016 20:56
Predmet:Re: zbrajanje polja

Hvala na brzom odgovoru i pomoći