Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Usporavanje MS Access programa - Problem sa Upitima ???

[es] :: Access :: Usporavanje MS Access programa - Problem sa Upitima ???

[ Pregleda: 2417 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

tifoza
Stevica Zivanovic
CEO
NEST387 Solutions
Bijeljina

Član broj: 51745
Poruke: 89
*.telrad.net.

Sajt: www.nest387.com


Profil

icon Usporavanje MS Access programa - Problem sa Upitima ???17.11.2015. u 22:16 - pre 101 meseci
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
 
Odgovor na temu

2012

Član broj: 296004
Poruke: 248



+926 Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???18.11.2015. u 03:57 - pre 101 meseci
Kad je poslednji put uradjena preinstalacija windows-a?
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???18.11.2015. u 07:11 - pre 101 meseci
Tabele u fajlu RestoranPOS_baza.accdb su nepovezane. Relationships.
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
31.176.201.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???21.11.2015. u 09:17 - pre 101 meseci
Navedi konkretno gdje sporo radi.
Ime tabele ili izvjestaja ili pak upita.

zxz
 
Odgovor na temu

tifoza
Stevica Zivanovic
CEO
NEST387 Solutions
Bijeljina

Član broj: 51745
Poruke: 89
*.telrad.net.

Sajt: www.nest387.com


Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???28.11.2015. u 17:44 - pre 101 meseci
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.
 
Odgovor na temu

tifoza
Stevica Zivanovic
CEO
NEST387 Solutions
Bijeljina

Član broj: 51745
Poruke: 89
*.telrad.net.

Sajt: www.nest387.com


Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???28.11.2015. u 17:45 - pre 101 meseci
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
 
Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2828



+45 Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???29.11.2015. u 17:00 - pre 101 meseci
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.

 
Odgovor na temu

tifoza
Stevica Zivanovic
CEO
NEST387 Solutions
Bijeljina

Član broj: 51745
Poruke: 89
77.239.80.*

Sajt: www.nest387.com


Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???11.12.2015. u 19:12 - pre 101 meseci
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.

:)
 
Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.dsl.bell.ca.



+79 Profil

icon Re: Usporavanje MS Access programa - Problem sa Upitima ???12.12.2015. u 02:36 - pre 100 meseci
.. 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.

 
Odgovor na temu

[es] :: Access :: Usporavanje MS Access programa - Problem sa Upitima ???

[ Pregleda: 2417 | Odgovora: 8 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.