[ tifoza @ 17.11.2015. 22:16 ] @
Pozdrav

Prije 2 godine napravio sam programčić za restoran. I sve je super radilo do prije par mjeseci kada je program počeo da znatno usporava rad.
U operaciji prodaje čak zna da po 30-40 sec obrađuje informaciju.
Posumljao sam na bazu i prebacio na SQL ali opet ista stvar.
Da li može da mi neko pomogne oko ovoga.

Puna verzija programa je ovdje u prilogu.

link

Hvala unapred
Stevica
[ 2012 @ 18.11.2015. 03:57 ] @
Kad je poslednji put uradjena preinstalacija windows-a?
[ Getsbi @ 18.11.2015. 07:11 ] @
Tabele u fajlu RestoranPOS_baza.accdb su nepovezane. Relationships.
[ izonic @ 21.11.2015. 09:17 ] @
Navedi konkretno gdje sporo radi.
Ime tabele ili izvjestaja ili pak upita.
[ tifoza @ 28.11.2015. 17:44 ] @
Konkretno.

1) izbor stola - Logovanje: 25 -25
2) Izbor iz menija sa strane bilo kojeg jela - tu zakuje.
Nekda radi super a onda zna da zakuje.

PS. Ako ne radi dugme izbor stola, treba se u tblLicenca promjeniti datum na danasnji.
[ tifoza @ 28.11.2015. 17:45 ] @
Ovo je kod

Set R = CurrentDb.OpenRecordset("SELECT * FROM [tblProdaja]")
R.AddNew

'Me.CijenaBezPoreza = Format(((Me.ProdajnaCijena * 100) / ((Me.PoreznaStopa + 1) * 100)), "0.00") ' OBRNUTI PROCENTI RACUN
'Me.IznosPoreza = Format((Me.CijenaBezPoreza * Me.PoreznaStopa * 1), "0.00")


R![RacunBr] = Forms![frmRacun]!RacunBr
R![Datum] = Date
R![Vrijeme] = Time
R![Stol] = Forms![frmRacun]!Stol
R![Konobar] = Forms![frmRacun]!Konobar
R![Sifra] = Me.Sifra
R![Barcode] = Me.Barkod
R![Naziv] = Me.Naziv
R![GrupaArtikla] = Me.GrupaArtikla
R![JedinicaMijere] = Me.JedinicaMijere
R![NabavnaCijena] = Me.NabavnaCijena
R![Zarada] = Me.Zarada
R![PoreznaStopa] = Me.PoreznaStopa
R![Kolicina] = 1
R![ProdajnaCijena] = Me.ProdajnaCijena
R![CijenaBezPoreza] = Format(((Me.ProdajnaCijena * 100) / ((Me.PoreznaStopa + 1) * 100)), "0.00") ' OBRNUTI PROCENTI RACUN
R![IznosPoreza] = Format((Me.CijenaBezPoreza * Me.PoreznaStopa * 1), "0.00")
R![Ukupno] = Me.ProdajnaCijena * 1
R![Kuhinja] = Me.Kuhinja
R![Status] = "AK"
R![Predracun] = "-"
R![NarudzbaKuhinja] = "-"
R![NarudzbaSank] = "-"

R.Update
R.Close
Set R = Nothing


DoCmd.Beep

Forms![frmRacun]![Command56].Enabled = False
Forms![frmRacun].Refresh

End Sub
[ Getsbi @ 29.11.2015. 17:00 ] @
Neobično je to što se ovde Access SUBP koristi bez relacija između tabela. Čak su svi upiti nad jednom tabelom. Ono što je takođe indikativo je što ceo kod nije kompajliran. Probaj u VBA Debag, Compile.... Daje greške i mislim da je to najveći problem.
Način pisanja koda je iz vremena Basic-a ili Qbasic-a, (vidi se iz prekomernog korišćenja naredbe Go to) što možda i nije najvažnije ali se vidi da u VBA modulima ne postoji Option Explicit - koja zahteva da promenljive budu deklarisane pre nego sto se upotrebe i što otežava traženje grešaka.
[ tifoza @ 11.12.2015. 19:12 ] @
Rješen problem.

Kreirao sam novu Access bazu u 2007 i importovao sve tabele.
Posle sam linkovao forme na tabele i sve radio savršeno.

:)
[ Zidar @ 12.12.2015. 02:36 ] @
.. radice jos bolje ako malo modifikujes ovo
Code:
Set R = CurrentDb.OpenRecordset("SELECT * FROM [tblProdaja]")

tako da izgleda ovako:
Code:
Set R = CurrentDb.OpenRecordset("SELECT * FROM [tblProdaja] WHERE 1=0")

Posto radis Rs.Add, dodajes novi rekord, pa ti ne treba da vuces celu tabelu. WHERE 1=0 povlaci tacno 0 (nula) rekorda, a ipak otvara rekordset.