Evo ti modul.
Ima tu jos nekih polja u tabeli tblKalkulacijaStavke koje nemas u Qyerju pa ce vjerovatno trebati dodati ali o tome mozemo poslije.
Nisam ulazio u to dali ti je Query stanja dobar ali i to mozemo poslije.
Trebas dodati jos jedno polje u tabeli tblArtikli prije no sto pokrenes ovaj kod prvi puta i poslije treba sve da radi za svaku godinu.
Polje treba da nosi ime: StariID

Naime morao si ti imati i rucno tu problema a koje mozda nisi ni primijetio.
Ti svake godine mijenjas sifru artikla ukoliko si brisao ili dopisivao artikle:
Primjer:
ArtikalKasaID Naziv
1 ART1
2 ART2
6 ART3

primjer da su ovdje izbrisani artikli 3,4 i 5 tada sledeci artikal koji se dopise uzima sifru 6
Posto u ulazu i izlazu pises samo šifru atikla a ne ime ukoliko art3 sa sifrom 6 ostane na stanju pri prenosu u novu godinu on ce poprimiti broj 3 a neki drugi artikal ce imati sifru 6 kojeg mozda i nemas na stanju.

Sada sam ja to ispravio pa kodom mijenjam i sifr u stanju.

Evo ti modul pa ako se ne snadjes pitaj.
Na vrhu modula izmijeni komnstante:
Const Ime_Baze = "MojaBaza" ' ime tvoje baze sa podacima napr ako ti je ime baze sa podacima
STR_2015_be upisat ces samo str
Const Sufiks = "_Be" 'U sufiks ces upisati _Be ako hoces a moze biti i prazno
Const Baza_Dir = "Baze" ' ako je tvoja applikacija na nekoj putanja a baze trebas smjestiti u sub dir od app onda napises ime tog sub dir.
Primjer tvoja mde se nalazi:
C:\STR
Baze se mogu nalaziti:
C:\STR\Baze
Znaci baza_dir je baze