<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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.Updat