Predmet:Re: Spajanje arhiviranih baza
U ovom dijelu koda trebalo je staviti ImeFajla = Dir sa početka petlje na kraj ispred Loop
PreuzmiIzvorni kôd (vbnet):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
Pozdrav