Centar za edukaciju-BiH

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Dodao sam polje u tblArtikli, i stavio Const Ime_Baze = ""
ali opet javlja grešku,
samo mi pojasni, jel ovaj modul sve odmah radi, kopira tabele, briše tabele i ubacuje nove recorde?
Ako je tako, možda neka polja u KalkulacijiStavke prave problem, ili u samom startu nešto nije dobro pošto neće ni novu tblArtikli da otvori?

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Jeste ovaj kod bi trebalo da uradi sve.
E sad vjerovatno nesto nije isto kao ovo kod mene.
Kazes samo opet javlja gresku.
Mozes li mi reci koju gresku i na kojem mjestu.
Nadji ovu proceduru u onom modulu sto sam ti poslao:
ption Explicit
Const Ime_Baze = ""
Const Sufiks = "_Be"
Const Baza_Dir = "Baze"
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 ''-----------------------vidis ispred ovog reda napisi REM
Set DB_Stara = CurrentDb()

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

REM On Error GoTo Kraj

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Kada kliknes na taster u formi vjerovatno ti iskoci dialog box.
Kliknes na taster debug i bacit ce te na red koda koji je obojan zutim.
Ti mi samo napises taj red koda gdje je stao.

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Prikaže mi onaj text iz tvog koda koji je zakačen na Onclick na dugme, Greška nova baza nije otvorena.
Kada sam ubacio ovaj REM , ne javlja mi grešku, ali se ništa ne događa.
Ako hoćeš mogu okačiti moju celu bazu, pa neka koristi ko hoće, ionako sam je ja napravio uz pomoć ljudi i sa ovog foruma.

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Ma nece je niko koristiti ako te ne pita ne brini.
Zakaci ako hoces.

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

OK, ako ćemo da radimo kako treba, onda ću je zakačiti,
treba mi samo vremena da je očistim od nekih mojih internih tabelela, querija i formi, jer ja sam stavljao u bazu sve što mi treba za moju radnju.
Ostaviću samo ono što je vezano za ulaz (kalkulacije) i za izlaz (kasa).
Čujemo se.

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Evo zakačio sam moju bazu, treba samo linkovati FRONT sa Tabelama, nisam baš sve izbrisao, pošto sam zaboravio šta sve čemu služi, višak ne smeta.
Treba proveriti query qryStanje da li je dobar da može iz njega da se prebace podaci, mislim na strukturu, podaci su tačni.
Inače NC (nabavna cena) u početnoj kalkulaciji sam dobijao tako što sam na osnovu ukupnog godišnjeg prometa izračunavao procenat od prodajne cene i tu jednačinu ubacivao u polje NC, i tako odštampane artikle sa NC i prodajnom cenom ubacivao u narednu godinu.
Ako treba nešto da pojasnim u vezi baze, tu sam.

Prilozi:

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Cudno kod mene ovo sve radi Bez problema.
Sta sam uradio?
Skino tvoje dvije mdb.
Otvorio na C disku dir Program i u njemu subdir Baze
U c:\Program kopirao tvoje dije MDB.
U bazu Front Importovao Modul Nova_G koji sam ti zakacio.
U tom modulu na vrhu sam promijenio samo ovu constantu.
Const Ime_Baze = ""
Nije to ni bitn i da se ne promijeni jer utice samo na ime novokreirane baze.
Importovao sam i formu NovaGodina iz primjera koji sam zakacio.

Podigao sam tvoju mdb tabele i u tblArtikli dodao polje StariID kao long integer zatvorio ovu bazu.
Ponovo pokrenuo tvoju batu Front i podigao formu NovaGodina i kliknuo na komandni taster.

Poslije toga se kreira mdb na putanji
c:\Program/baze pod imenom 2016_be.mdb.

Ako ovo jednom uradis pa pokusas ponovo prijavit ce gresku jer je vec kreirana i ako hoces ponovo treba je izbrisati i ponovo relinkovati podatke na staru bazu jer iz koda se i linkuje front na nju.

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Ajde zakači te moje baze gde to radi.