Option Compare Database
Const DirServer = "S:\"
Const DirTemp = "S:\temp\"
Function KreirajTemp()
Dim wrk As Workspace
Dim Db As Database, tmpBaza As Database
Dim Rs As Recordset, tmpRs As Recordset
Dim OrgTabela As TableDef, TmpTabela As TableDef
Dim ImeBaze As String, ImeTmpBaze As String
Dim ImeFajla As String, SQL As String
Dim Prefiks As Integer
DoCmd.SetWarnings False
ImeTmpBaze = DirTemp & "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_sve")
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
ImeFajla = Dir(DirServer, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirServer & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
SQL = "INSERT INTO tblTransakcije_sve (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)
End If
Loop
Set OrgTabela = Nothing
Set TmpTabela = Nothing
'tabela ulazizlaz
Set OrgTabela = Db.TableDefs("tblUlazIzlaz")
Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz_sve")
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
ImeFajla = Dir(DirServer, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirServer & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
SQL = "INSERT INTO tblUlazIzlaz_sve ( 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)
End If
Loop
Set OrgTabela = Nothing
Set TmpTabela = Nothing
Set tmpBaza = Nothing
Set Db = Nothing
DoCmd.SetWarnings True
End Function