Warning: A non-numeric value encountered in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 101
Warning: filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in /home2/icentarb/public_html/icentar/classes/class.filesystem.php on line 142
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.Ope