Private Sub CmdTransakcije_Click()
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim rs4 As Recordset

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("SELECT Skladiste FROM Q_Stanje GROUP BY Skladiste", dbOpenDynaset)
Set rs2 = db.OpenRecordset("tblTransakcije", dbOpenDynaset)
Set rs3 = db.OpenRecordset("Q_Stanje", dbOpenDynaset)
Set rs4 = db.OpenRecordset("tblUlazIzlaz", dbOpenDynaset)

Do While Not rs1.EOF
    rs2.AddNew
    rs2!Datum = Now()
    rs2!Skladiste = rs1!Skladiste
    rs2!IDdokumenta = 16
    rs2!BrDokumenta = "n/a"
    rs2!PartnerID = DLookup("PartnerID", "tblPartneri", "Firma ='" & "Skladište " & rs1!Skladiste & "'")
    rs2!Radninalog = "n/a"
    rs2!OperID = "Operater"
    rs2!StatusTR = 2
rs2.Update

rs1.MoveNext
Loop
rs1.Close
rs2.Close
   
Kraj:
    Set db = Nothing
    
    DoCmd.OpenTable "tblTransakcije", acViewNormal, acEdit

End Sub