Centar za edukaciju-BiH

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Evo tvoj primjer a opis sam gore dao.

Prilozi:

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Svaka čast, radi,
postoje samo još 2 problema,
prebacio je sve artikle, a ne samo koje su na stanju, tj koje imaju stanje>0, i problem kako da mi u početnoj kalkulaciji popuni polje NC (nabavna cena), koje sam izračunavao kao procenat od prodajne.
Probaću malo sam da čačkam, pa ako ne ide javiću se,
pozdrav

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Ja nisam dirao tvoj Query stanja znaci do toga je sta ce prebaciti.
E sad kad to sve sredis treba napraviti i proceduru koja ce provjeriti dali postoji baza pod tim imenom jer ako bi se neko poigrao mogla bi se unistiti neka baza.
Dok se testira bolje je bez toga ali kad bude radila treba staviti i to.
Da bilo je tu i par polja koje sam preskocio jer nisam znao sta ti znace ali lako je to dodati samo kada kazes koji podatak ide u koje polje.
Cini mi se da nisi imao podatke u onom tvome query-u stanja.

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Evo uspeo sam da malo prilagodim sebi modul, i sada jednim klikom uštedim sebi 5-6 sati kucanja,
ostaje samo par trivijalnih problema,
recimo, modul radi samo ako direktno startujem formu NovaGodina, znači kada uđem sa shiftom u bazu, i direktno sa dvoklikom startujem formu NovaGodina,
svaki moj pokušaj da napravim dugme ili shortcut na nekoj formi, koji će mi da mi pokreće formu NovaGodina , ne daje rezultat, tačnije otvori formu ali kada stisnem dugme za otvaranje nove baze, ništa se ne dešava, niti otvara novu bazu niti javlja grešku.

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Najbolje bi bilo da zakacis primjer i u njemu napises sta zelis napravati.

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Evo, stavio sam na ovaj tvoj primer što si zadnji okačio,
stavio sam samo dugme na početnu formu "Nova Godina",
i on otvara formu Nova Godina, i kada kliknem da dugme što otvara novu bazu, ništa se ne dešava.

Prilozi:

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.

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Razumem, mora sve biti zatvoreno, a kako se to tehnički i vizuleno rešava, predpostavljam, da se dugmetu koji otvara form Nova Godina, doda i funkcija da zatvori sve ostale forme, jel se to rešava kodom ili može pomoću nekog čarobnjaka, ili se napravi drugi FRONT gde se kada se pokrene baza diže umesto frmRacun, forma sa otvaranjem Nove Godine?

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

U ovom tvom slucaju evo mozes samo ovo promijenit.
To ti je na komandnom tasteru nova godina.
Private Sub Command35_Click()
On Error GoTo Err_Command35_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "NovaGodina"
DoCmd.OpenForm stDocName
DoCmd.Close acForm, "frmRacun"
Exit_Command35_Click:
Exit Sub

Err_Command35_Click:
MsgBox err.Description
Resume Exit_Command35_Click

End Sub

---

Predmet:Re: Kopiranje iz Queria u drugu tabelu

---

Hvala, to je to,
ako imaš vremena napiši još samo proceduru o proveri da li postoji baza sa imenom koja se pokušava nova kreirati, to je tvoj savet, i možemo da zaokružimo ovu temu.