Predmet:Re: Spajanje arhiviranih baza
Ipak i dalje imam problem. Napisao sam putanju kako si mi sugerirao
Const DirPutanja = "\\Rd-prodaja\ServerRD\"
Konstantno mi se ne prenesu podaci iz početne godine u mom slučaju 2011.
Probno sam napravio bazu Prodaja_2010_be i tada mi prenese iz 2011 ali ne iz 2010, zatim sam napravio
Prodaja_2009_be i isti slučaj, prenese se 2010, a 2009 ne.
u ovom dijelu koda:
PreuzmiIzvorni kôd (vbnet):ImeFajla = Dir(DirPutanja, vbDirectory)
Do While Len(ImeFajla) > 0
ImeFajla = Dir
If right(ImeFajla, 3) = "Mdb" Then
ImeBaze = DirPutanja & ImeFajla
Prefiks = Mid(ImeBaze, (Len(ImeBaze) - 8), 2)
SQL(0) = "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(0))
SQL(1) = "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(1))
End If
MsgBox ImeFajla
Loop
dodao sam na kraju MsgBox ImeFajla i tu mi se u msgbox-u nikad ne pojavi prva godina koju imam na serveru
Pozdrav