pmiroslav | 16.01.2014 11:21 |
---|---|
Predmet:Kopiranje baze (nova godina) Molim pomoć. Ideja mi je da pomoću koda kopiram podatke iz Q_Inventura u privremenu tablicu Invetnura. Zatim bih izbrisao podatke iz tablica Ulaz i Izlaz i nakon toga bi u tablicu Ulaz kopirao podatke koji su predhodno spremljeni u tablicu Inventura. Prvi dio, kopiranje u tablicu Inventura odradi se kako treba ali kada želim iz tablice Inventura prenijeti podatke u tabllicu Ulaz javlja se greÅ¡ka "Record is Deleted" PreuzmiIzvorni kôd (vbnet):
|
|
Prilozi: Primjer.rar (Velicina datoteke:30.12 KB) |
dex | 16.01.2014 12:21 |
---|---|
Predmet:Re: Greška u proceduri Kod mene radi OK |
zxz | 16.01.2014 14:06 |
---|---|
Predmet:Re: Greška u proceduri Probaj sa ovim: Sl_Pocetna.Close Sl_Zavrsna.Close Sl_Prelazna.Close CurrentDb.Execute "DELETE*FROM [Ulaz]" CurrentDb.Execute "DELETE*FROM [Izlazi]" Set Sl_Zavrsna = Baza.OpenRecordset("Ulaz", dbOpenDynaset) Set Sl_Prelazna = Baza.OpenRecordset("Inventura", dbOpenDynaset) |
pmiroslav | 16.01.2014 14:56 |
---|---|
Predmet:Re: GreÅ¡ka u proceduri Izgleda da sam pronaÅ¡ao problem. CurrentDb.Execute "DELETE*FROM [Inventura]" sam prebacio odmah iza Set Baza = CurrentDb() i sada je OK. Jedino bi mi joÅ¡ dobro doÅ¡lo kada bi se moglo ovako neÅ¡to: Ovaj kod pokrećem iz baze koja se zove 'Skladiste_2013_be.mdb' Kodom napraviti indentičnu bazu koja bi se zvala 'Skladiste_2014_be.mdb' (odnosno za godinu viÅ¡e od početne) I onda u njoj odraditi gorni kod, a da prva baza ostane nepromjenjena |
zxz | 16.01.2014 23:39 |
---|---|
Predmet:Re: Greška u proceduri Moras setovati id rugu bazu: Primjer: Dim strDB As String Dim DrugaDB As Access.Application strDB = C:\Putanja\ImeBaze.mdb" Set DrugaDB = _ CreateObject("Access.Application") DrugaDBe.NewCurrentDatabase strDB I sad u kodu gdje hoces manipulisati tabelom u ovoj drugoj setujes tabele: Set Sl_Prelazna = DrugaDB.OpenRecordset("Inventura", dbOpenDynaset) |
pmiroslav | 18.01.2014 10:15 |
---|---|
Predmet:Re: GreÅ¡ka u proceduri U bazi koja se zove "Skladiste_2013_be.mdb" napisao sam funkciju PreuzmiIzvorni kôd (vbnet):
kada je pokrenem napravi mi se nova baza "Skladiste_2014_be.mdb", ali prazna bez tablica iz početne baze? |
zxz | 18.01.2014 12:42 |
---|---|
Predmet:Re: GreÅ¡ka u proceduri Mozda je ovako lakse radi tabela. Kopiras jednu tabelu od naprimjer zadnje 2013 godine i daj jo ime be.mdb. Udjes u nju i izbrises podatke sve sem kodinih tabela. Znaci ulaz izlaz pobrises a ostalo moze ostati. sada kompajliras tabelu i zatvoris. Ponovo preimenuj ovu tabelu be_mdb u be.sys. Ovaj be.sys fajl treba da se nalazi tamo gdje i ostale baze. U tvom slucaju je to d:\baze. Kod ispod kopiraj u neki modul. Pozivas proceduru NovaGodina(BrojGodine) PreuzmiIzvorni kôd (Visual Basic):
|
pmiroslav | 18.01.2014 16:24 |
---|---|
Predmet:Re: Kopiranje baze (nova godina) Promjenio sam naslov jer mislim da je prikladniji. Pokrenuo sam procduru koju si predložio ali javlja mi grešku 'Type mismatch' i zustavi se na Set Rs = Db.OpenRecordset(SQL) |
zxz | 18.01.2014 18:41 |
---|---|
Predmet:Re: Kopiranje baze (nova godina) Kod mene radi na nekoliko baza i racunara. Sto mi pada napamet je da ti je mozda ukljucen i dao i ado. Ako je tako a netreba ti ado iskljuci a ako treba onda popravi proceduru odnosno dimenzionisanje. Dim Db As DAO.Database, NovaDb As DAO.Database Dim SQL As String |
pmiroslav | 18.01.2014 22:57 |
---|---|
Predmet:Re: Kopiranje baze (nova godina) ADO nije uključen. Postupak sam ponovio u drugoj bazi i sa referencama kao na priloženoj slici i sada imam geÅ¡ku No current record zaustavi se na Putanja = RS.Fields(0) |
|
Prilozi: reference.jpg (Velicina datoteke:68.31 KB) |