Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Grafički prikaz rezultata

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Potrebno je da rezultate takmičara na izvesnom takmičenju prikažete u obliku trake koja prezentuje veličinu ostvarenog rezultata? Office Web komponente ili Microsoft Graph vam mogu pomoći u zadatku. Postoji li jednostavnije rešenje koje, pri tome, radi brže i jednostavnije je za kreiranje?

Za demonstraciju primera ćete kreirati tabelu sa pet takmičara koji mogu osvojiti između nula i 100 bodova. Odredite svakom takmičaru proizvoljan broj bodova u zadanom rasponu. Kreirajte izveštaj i ostavite dovoljno prostora uz desnu ivicu, kako bi mogli da postavite pravougaonik širine od najviše 10 cm uz podatke o takmičaru i broju osvojenih bodova. Nazovite ga Traka i ofarbajte ga proizvoljnom bojom (vidi sliku). Širina trake nije previše bitna, pošto ćemo na ovaj parametar uticati u zavisnosti od broja bodova.

U zaglavlju, iznad pravougaonika ispišite brojeve 0, 50 i 100, na početku, sredini i na kraju. Možete dodati i proizvoljan broj vertikalnih linija preko trake, npr. na svakih 10 ili 25 bodova. Ukoliko su one dovoljne visine da zahvataju celu visinu sekcije Details, na izveštaju će izgledati kao neprekidne linije.

Dva puta klikne na sekciju Details i kreirajte novi modul za događaj OnFormat. Na osnovu broja bodova menjaćete parametar širine pravougaonika. U modul upišite sledeću komandu:

Me.Traka.Width = (Me.Bodova / 100) * (567 * 10)

Kada bude pripremao izveštaj za pregled ili štampu, Access će za svaki zapis preračunavati širinu linije. U primeru smo predvideli širinu trake od najviše 10 cm - kada takmičar osvoji 100 bodova traka će zauzeti punu širinu. Stoga izraz

Me.Bodova / 100 * 10

preračunava broj centimetara širine. Da biste saopštili Accessu ovaj broj, morate ga konvertovati u tzv. twips, jer program očekuje ovakav parametar, a ne veličinu u centimetrima ili inčima. U jednoj tački se sadrži 20 twipsa, a u jednom inču 72 tačke, što daje 1440 twipsa po inču. Da biste konvertovali broj twipsa po inču u broj twipsa po centimetru potrebno je da podelite broj 1440 sa 2,54 - rezultat je 567. Konačno, broj twipsa se množi sa 10 cm u našem primeru, pa dobijamo sledeći izraz:

Me.Bodova / 100 * 567 * 10

Izveštaj možete proširi uslovnim formatiranjem tako da, u zavisnosti od broja bodova, utičete na boju trake. Primetićete da je, kada selektujete traku, opcija za uslovno formatiranje iz menija nedostupna. Proširite modul dodavanjem sledećih komandi:

If Me.Bodova.Value > 90 Then
    Me.Rezultat.BackColor = 255
Else
    Me.Rezultat.BackColor = 9868950
End If

Access proverava vrednost polja Bodova tako da ako je njegova vrednost preko 90, farba traku u crveno; u suprotnom, dodeljuje sivu boju. Na izveštaj možete dodavati različite natpise uz svakog takmičara u zavisnosti od broja bodova, tako da konačan izgled izveštaja može biti kao na slici:

Mi smo dodali natpis Nagrada! za svakog takmičara koji je osvojio preko 90 bodova. Na sličan način, u svojim izveštajima možete prikazivati i sakrivati određene informacije izveštaja u zavisnosti od količine, ostvarenog učinka i sličnih uporedivih vrednosti.