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

                !Status = 1

                !DatumU = Date

            .Update

        End With

         SL_Pocetna.MoveNext

        Wend

   End If