Usporavanje MS Access programa - Problem sa Upitima ???

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

Tabele u fajlu RestoranPOS_baza.accdb su nepovezane. Relationships.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Navedi konkretno gdje sporo radi.
Ime tabele ili izvjestaja ili pak upita.

Potpis

zxz

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.

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

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.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

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.

:)