zxz 22.07.2013 12:15
Predmet:Re: Spajanje arhiviranih baza

Eh sad sam skontao cini mi se.
Mislim da ne odradjuje zadnju godinu.
sad mi pade napamet jer 2016 nije odradio.

zxz 22.07.2013 12:27
Predmet:Re: Spajanje arhiviranih baza

De izbrsis sve msg koje imas pa stavi ovdje iza loop.
Da vidimo dali petlja broji kako treba.
Trebalo bi biti prvi prazan a drugi greska.
Loop
MsgBox ImeFajla
ImeFajla = Dir
MsgBox ImeFajla
Provjeri dali u modulu na vrhu imas option explicit upisano

pmiroslav 22.07.2013 13:29
Predmet:Re: Spajanje arhiviranih baza

Nije odradio 2006, a ne 2016 kao Å¡to si ti konstatirao.
Option explicit imam.
napisao sam u proceduri kao Å¡to si sugerirao i dobijem jedan prazan MsgBox i nakon tofa Run-time error 5:
Invalid procedure call or argument

zxz 22.07.2013 13:37
Predmet:Re: Spajanje arhiviranih baza

2007, 2008, 2009, 2010, 2011, 2012 i 2013 (nema 2016)
Ovo si napisao pa sam ja iz ovog zakljucio da ne odradjuje zadnju godinu.
Probaj dodati Bazu napr 2014. pa vidi hoce li uraditi tada 2013. i probaj 2013 samu.
-Probaj i otvoriti novu mdb i prenijeti kod pa iz nje probati ako vec nisi.
Ovo je stvarno nevjerovatno.
Kod mene sve radi i to na tvojoj bazi sto si poslao.

pmiroslav 22.07.2013 13:54
Predmet:Re: Spajanje arhiviranih baza

Ovo 2016 jemoja greška. Treba biti 2006
Da se razumijemo. Ne odrađuje mo prvu najnižu godinu. U mom primjeru to je 2006. Sve ostale odradi

zxz 22.07.2013 15:28
Predmet:Re: Spajanje arhiviranih baza

Stavi ovu proceduru pa pokreni.
U dir app. dobit ces file aaa.txt pa ga zakaci na forum.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function KreirajTempZXZ()
  2. Dim wrk As Workspace
  3. Dim Db As Database, tmpBaza As Database
  4. Dim Rs As Recordset, tmpRs As Recordset
  5. Dim Fld As Field
  6. Dim OrgTabela As TableDef, TmpTabela As TableDef
  7. Dim ImeBaze As String, ImeTmpBaze As String
  8. Dim ImeFajla As String, SQL(1) As String
  9. Dim Prefiks As Integer
  10.  
  11.  
  12. Open Db_Putanja & "\aaa.txt" For Output Shared As #1
  13. DoCmd.SetWarnings False
  14. ImeTmpBaze = Db_Putanja & "tmp.mdb"
  15. If Dir(ImeTmpBaze) <> "" Then Kill ImeTmpBaze
  16. Set Db = CurrentDb()
  17. Set wrk = DBEngine.Workspaces(0)
  18. 'Tabela transakcije
  19. Set tmpBaza = wrk.CreateDatabase(ImeTmpBaze, dbLangGeneral)
  20. Set OrgTabela = Db.TableDefs("tblTransakcije")
  21. Set TmpTabela = tmpBaza.CreateTableDef("tblTransakcije")
  22. For Each Fld In OrgTabela.Fields
  23.     With TmpTabela
  24.     .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
  25.     End With
  26. Next Fld
  27. tmpBaza.TableDefs.Append TmpTabela
  28. Set OrgTabela = Nothing
  29. Set TmpTabela = Nothing
  30. 'tabela ulazizlaz
  31. Set OrgTabela = Db.TableDefs("tblUlazIzlaz")
  32. Set TmpTabela = tmpBaza.CreateTableDef("tblUlazIzlaz")
  33. For Each Fld In OrgTabela.Fields
  34.     With TmpTabela
  35.     .Fields.Append .CreateField(Fld.Name, Fld.Type, Fld.Size)
  36.     End With
  37. Next Fld
  38. tmpBaza.TableDefs.Append TmpTabela
  39. Set OrgTabela = Nothing
  40. Set TmpTabela = Nothing
  41. 'Prenos podataka
  42. ImeFajla = Dir(DirPutanja, vbDirectory)
  43. Print #1, "-----Pije petlje ImeFajla----"
  44. Print #1, ImeFajla
  45.         Do While Len(ImeFajla) > 0
  46.             ImeFajla = Dir
  47.             Print #1, "-----Pije Ifa ImeFajla----"
  48.             Print #1, ImeFajla
  49.              If Right(ImeFajla, 3) = "Mdb" Then
  50.                 ImeBaze = DirPutanja & ImeFajla
  51.                
  52.                 Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
  53.                      SQL(0) = "INSERT INTO tblTransakcije (IDTransakcije, Datum, Skladiste, IDdokumenta, BrDokumenta, " _
  54.                     & "PartnerID, RadniNalog, OperID, StatusTR, DatumU, Brisanje )IN '" & ImeTmpBaze _
  55.                     & "' SELECT " & Prefiks & "& [IDTransakcije] AS ID, Datum, Skladiste,IDdokumenta, " _
  56.                     & "BrDokumenta,PartnerID, RadniNalog, OperID, StatusTR,DatumU, Brisanje " _
  57.                     & "FROM tblTransakcije IN '" & ImeBaze & "'"
  58.                     DoCmd.RunSQL (SQL(0))
  59.                     SQL(1) = "INSERT INTO tblUlazIzlaz ( IDTransakcije, Sifra, Ulaz, Izlaz, Status, DatumU )IN '" & ImeTmpBaze _
  60.                         & "' SELECT " & Prefiks & " & [IDTransakcije] AS ID, Sifra, Ulaz, Izlaz, Status, DatumU " _
  61.                         & "FROM tblUlazIzlaz IN '" & ImeBaze & "'"
  62.                     DoCmd.RunSQL (SQL(1))
  63.                     Print #1, "-----Poslije ifa----"
  64.                     Print #1, ImeFajla & vbTab & ImeBaze & vbTab & vbTab & Prefiks & vbTab
  65.              End If
  66.         Loop
  67.  'MsgBox ImeFajla
  68. 'ImeFajla = Dir
  69.  'MsgBox ImeFajla
  70. Set tmpBaza = Nothing
  71. Set Db = Nothing
  72. DoCmd.SetWarnings True
  73. Close #1
  74. End Function

pmiroslav 22.07.2013 15:48
Predmet:Re: Spajanje arhiviranih baza

Do sutra ne mogu niÅ¡ta jer mi je problematična baza na poslu. Pa se Å¡to se toga tiće čujemo sutra poslie 7h.

zxz 22.07.2013 17:39
Predmet:Re: Spajanje arhiviranih baza

Da da jano mi je to.
Uf i mene je zaintrigiralo sta to moze biti.
na kraju ce biti neka banalna stvar.

pmiroslav 23.07.2013 09:00
Predmet:Re: Spajanje arhiviranih baza

Dobro jutro. Evo text fail.
Prilozi:
aaa.rar (Velicina datoteke:251 Bajt)

zxz 23.07.2013 09:19
Predmet:Re: Spajanje arhiviranih baza

Kako ja vidim ovdje nije uradjena Prodaja_2006_be.mdb.
Prodaja_20113_be.mdb je uredno prosla.
Provjeri podatke.
Izgleda da ipak prva ne prolazi kroz petlju, zasto jos neznam ali cemo vidjeti.