For I = 1 To 2
rs2.AddNew
rs2!IdTransakcije = IdTransakcije(I)
rs2!Sifra = rs1!Sifra
IF I=1 Then rs2!Ulaz = rs1!Kolicina
IF I=2 Then rs2!Izlaz = rs1!Kolicina
rs2.Update
Next I