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. |