zxz 24.01.2016 02:01
Predmet:Re: Kopiranje iz Queria u drugu tabelu

Kompajliraj kod.
Kod mene ima jedna greska nedostaje end sub.
I imas u proceduri da dozvolis red kos on error goto kraj

Function Otvori_Godinu(Godina As String) As Boolean
Dim DB_Nova As dao.Database, DB_Stara As dao.Database
Dim Rs_Stari As dao.Recordset, Rs_Novi As dao.Recordset, RSArt As Recordset
Dim PutanjaB As String, Nova_Baza As String, SQL As String
Dim Stara_Baza As String, I As Integer, ID(2) As Integer
Dim Tdf As TableDef, Fld As Field

On Error GoTo Kraj ' ovaj dio
Set DB_Stara = CurrentDb()

e sad glavni dio.
Moras zatvoriti formu frmRacun kada otvoris formu novaGodina.
U stvari nesmije biti podignuta niti jedna tabela ili forma na kojoj je tabeli ili pak query jer se tada nemopze baza prekopirati jer se koristi.

Trulex 21.10.2016 13:22
Predmet:Re: Kopiranje iz Queria u drugu tabelu

Bliži se vreme primene ovoga što smo pravili početkom godine,
proverom sve radi kako treba, osim jedne stavke:
kada se kreira nova tblArtikli, modul Nova_Godina prebaci svre artikle iz stare tblArtikli, a treba samo one koji imaju stanje >0, i da nova tblArtikli krene redni broj od 1 pa redom.
Da podsetim, zxz je na početku ove stranice okačio program koji radi, i tamo ima frm Nova Godina, koji pokreće modul Nova_Godina koji odrađuje sve što treba.
Da li možda treba napraviti qryArtikli>o pa da tu tabelu prepiše u novu tblArtikli, ili nešto drugo,
gde to u kodu treba da se prepravi, ako je to rešenje?

Ako treba još neko pojašnjenje, nije problem.

Trulex 21.10.2016 15:45
Predmet:Re: Kopiranje iz Queria u drugu tabelu

Evo, probao sam sam da rešim,
Napravio sam od tblArtikli novi qryStanje, i nova tabela tblArtikli se prepisuje iz tog querya umesto iz stare tblArtikli, a ostalo je zahvaljujući zxz-ovom modulu program odradio sve kako treba, tačnije u novoj tblArtrikli redom je dodelio nove šifre artiklima, krenuvši od 1,
nadam se da je ovo dobro rešenje i da neću nešto pobrkati.