Predmet:Re: Spajanje arhiviranih baza

---

U ovom slučaju:

DoCmd.RunSQL (SQL(1))
MsgBox ImeFajla
ImeFajla = Dir
End If
Loop
pokazuje 2007, 2009, 2011 i 2013

a u ovom slučaju

DoCmd.RunSQL (SQL(1))
MsgBox ImeFajla
End If
Loop

2007, 2008, 2009, 2010, 2011, 2012 i 2013 (nema 2016)

---