ImeFajla = Dir(DirPutanja, vbDirectory)
Do While Len(ImeFajla) > 0
' ImeFajla = Dir **** Ovo je iz nekog razloga pravilo problem
If Right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirPutanja & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
SQL(0) = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
& "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
& "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
& "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
& "FROM tblTransakcije IN '" & ImeBaze & "'"
DoCmd.RunSQL (SQL(0))
SQL(1) = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
& "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
& "FROM tblUlazIzlaz IN '" & ImeBaze & "'"
DoCmd.RunSQL (SQL(1))
SQL(2) = "INSERT INTO tblProdaja (OrderID, Skladiste, FiskalniBroj, PartnerID, StovaristeID, " _
& "SifraKup, Datum, DatumIsporuke, NacinPlacanjaID, RokPlacanjaID, RokPlacanja, " _
& "DVO, Valuta, Dostava, Rabat, PDV, ZKI, JIR, Opaska, Opaska2, PurchaseOrderNumber, " _
& "ShipName, ShipAddress, ShipCity, ShipPostalCode,ShipCountry, ShipPhoneNumber, " _
& "ShipDate, ShippingMerhodID, PonudaID, Proknjizeno, KorisnikID, Stornirano, Komp )IN '" & ImeTmpBaze _
& "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Skladiste, FiskalniBroj, PartnerID, StovaristeID, " _
& "SifraKup, Datum, DatumIsporuke, NacinPlacanjaID, RokPlacanjaID, RokPlacanja, " _
& "DVO, Valuta, Dostava, Rabat, PDV, ZKI, JIR, Opaska, Opaska2, PurchaseOrderNumber, " _
& "ShipName, ShipAddress, ShipCity, ShipPostalCode,ShipCountry, ShipPhoneNumber, " _
& "ShipDate, ShippingMerhodID, PonudaID, Proknjizeno, KorisnikID, Stornirano, Komp " _
& "FROM tblProdaja IN '" & ImeBaze & "'"
DoCmd.RunSQL (SQL(2))
End If
ImeFajla = Dir
Loop