Dim db As Database
Dim rs3 As Recordset
Dim rs4 As Recordset

Set Baza = CurrentDb()
Set rs3 = db.OpenRecordset("Q_Stanje", dbOpenDynaset)
Set rs4 = db.OpenRecordset("tblUlazIzlaz", dbOpenDynaset)

   Do While Not rs3.EOF
                 rs4.AddNew
                
                 rs4![IDtransakcije] = "IDtransakcije iz tblTransakcija
                 rs4![Sifra] = rs3![Sifra]
                 rs4![Ulaz] = 0
                 rs4![Izlaz] = rs3![Stanje]
                 rs4![Status] = 1
                 rs4![DatumU] = Date
                    
                 rs4.Update
                 rs4.MoveNext
        Loop
rs3.Close
rs4.Close
   
Kraj:
    Set Baza = Nothing