Private Sub Form_Current()
Dim rs As Object
Set rs = Form.Recordset
For Each record In rs.Fields
If godina.Value = 2002 And RangSen2002 = 1 Then
ZB2002Sen = ZB2002Sen + 5
ElseIf godina.Value = "2002" And RangSen2002 = 2 Then
ZB2002Sen = ZB2002Sen + 3
ElseIf godina.Value = "2002" And RangSen2002 = 3 Then
ZB2002Sen = ZB2002Sen + 1
ElseIf godina.Value = "2002" And RangSen2002 > 3 Then
ZB2002Sen = ZB2002Sen
End If
Next
End Sub
ZB2002Sen je vreme koje treba da se poveća za (recimo, +5) ako je RangSen2002 = 1, za +3 ako je RangSen2002 = 2 itd..
Problem je što ja u konkretnom slučaju za 2002 godinu imam 7 zapisa, a kod prođe svaki put samo kroz prvi zapis (7 puta) i svaki put doda na PRVI zapis po +5, pošto je u konkretnom slučaju RangSen2002 = 1. Ostali zapisi ostaju nepromenjeni.
Meni treba da kod prođe JEDANPUT kroz SVE zapise i, zavisno od uslova doda određeni broj poena.
Može li neko da mi pomogne, da mogu pisati kod dalje, za ostale godine i uslove.
Hvala!