Function KreirajTempZXZ()
Dim wrk As Workspace
Dim Db As Database, tmpBaza As Database
Dim Rs As Recordset, tmpRs As Recordset
Dim Fld As Field
Dim OrgTabela As TableDef, TmpTabela As TableDef
Dim ImeBaze As String, ImeTmpBaze As String
Dim ImeFajla As String, SQL(1) As String
Dim Prefiks As Integer


Open Db_Putanja & "\aaa.txt" For Output Shared As #1
DoCmd.SetWarnings False
ImeTmpBaze = Db_Putanja & "tmp.mdb"
If Dir(ImeTmpBaze) <> "" Then Kill ImeTmpBaze
Set Db = CurrentDb()
Set wrk = DBEngine.Workspaces(0)
'Tabela transakcije
Set tmpBaza = wrk.CreateDatabase(ImeTmpBaze, dbLangGeneral)
Set OrgTabela = Db.TableDefs("tblTransakcije")
Set TmpTabela = tmpBaza.CreateTableDef("tblTransakcije")
For Each Fld In OrgTabela.Fields
    With TmpTabela
    .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
    End With
Next Fld
tmpBaza.TableDefs.Append TmpTabela
Set OrgTabela = Nothing
Set TmpTabela = Nothing
'tabela ulazizlaz
Set OrgTabela = Db.TableDefs("tblUlazIzlaz")
Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz")
For Each Fld In OrgTabela.Fields
    With TmpTabela
    .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
    End With
Next Fld
tmpBaza.TableDefs.Append TmpTabela
Set OrgTabela = Nothing
Set TmpTabela = Nothing
'Prenos podataka
ImeFajla = Dir(DirPutanja, vbDirectory)
Print #1, "-----Pije petlje ImeFajla----"
Print #1, ImeFajla
        Do While Len(ImeFajla) > 0
            ImeFajla = Dir
            Print #1, "-----Pije Ifa ImeFajla----"
            Print #1, ImeFajla
             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))
                    Print #1, "-----Poslije ifa----"
                    Print #1, ImeFajla & vbTab & ImeBaze & vbTab & vbTab & Prefiks & vbTab
             End If
        Loop
 'MsgBox ImeFajla
 'ImeFajla = Dir
  'MsgBox ImeFajla
Set tmpBaza = Nothing
Set Db = Nothing
DoCmd.SetWarnings True
Close #1
End Function