<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 />
Dim SQL2 As String
Dim PBaze As String
Dim Skl As String
PBaze = Chr(39) & PutanjaBaza & ImeNoveBaze & Chr(39)

Tablica = "QryStanje"
Tablica_2 = "tblUlazIzlaz"

Set SL_Pocetna = Db.OpenRecordset(Tablica, dbOpenDynaset)
Set SL_Zavrsna = NovaDb.OpenRecordset(Tablica_2, dbOpenDynaset)

If SL_Pocetna.RecordCount > 0 Then
        SL_Pocetna.MoveFirst
        While Not SL_Pocetna.EOF
            With SL_Zavrsna
            .AddNew
      
            Skl = SL_Pocetna!Skladiste
               SQL2 = "SELECT * FROM tblTransakcije IN PBaze WHERE Skladiste='" & Skl & "'"
               'SQL2 = "SELECT * FROM tblTransakcije IN 'D:\Sve_Godine\Baze\Prodaja_2016_be.mdb' WHERE Skladiste='" & Skl & "'"
Dim RS2 As Recordset
Dim ID
Set RS2 = Db.OpenRecordset(SQL2)
ID = RS2!IDTransakcije ' ili kako se zove polje vec
RS2.Close
                ![IDTransakcije] = ID
                !Sifra = SL_Pocetna!Sifra
                !Ulaz = SL_Pocetna!Stanje
                !Izlaz = 0