ImeFajla = Dir(DirPutanja, vbDirectory)
        Do While Len(ImeFajla) > 0
                        [b] ' ImeFajla = Dir **** Ovo je iz nekog razloga pravilo problem[/b]
             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))
                     
             End If
ImeFajla = Dir
        Loop