Izdelava hierarhičnega podatkovnega lista

V tej vadnici ustvarite tabelo naročil in postavk naročil, na obrazec postavite kontrolnik WklTreeList, določite stolpce, pas, pravilo oblikovanja in vsoto v nogi ter v pogledu obrazca uredite celico. Definicijo nastavite enkrat v pogledu načrta, shrani pa se skupaj z obrazcem. Za vse skupaj potrebujete približno petnajst minut.

• Microsoft 365 Access ali Access Runtime, v 32- ali 64-bitni različici, z nameščenim paketom WKL Forms Object Library 1.23 ali novejšim, registriranim za trenutnega uporabnika sistema Windows (Namestitev izdanega paketa).
• Nova podatkovna zbirka na zaupanja vrednem mestu.
• Vsak kontrolnik WKL odpre svoj oblikovalnik na enak način: v pogledu načrta list z lastnostmi (F4), zavihek Drugo (Other), vrstica Po meri (Custom), [...] (Odpiranje oblikovalnika kontrolnika).

V oknu Immediate (Ctrl+G) izvedite te vrstice, eno za drugo:

CurrentDb.Execute "CREATE TABLE tblPostavke (PostavkaID COUNTER PRIMARY KEY, NadrejenaID LONG, Naziv TEXT(50), Kolicina LONG, Cena CURRENCY)"
CurrentDb.Execute "INSERT INTO tblPostavke (NadrejenaID, Naziv, Kolicina, Cena) VALUES (0, 'Naročilo 1001', 0, 0)"
CurrentDb.Execute "INSERT INTO tblPostavke (NadrejenaID, Naziv, Kolicina, Cena) VALUES (1, 'Postavka 1', 1, 99)"
CurrentDb.Execute "INSERT INTO tblPostavke (NadrejenaID, Naziv, Kolicina, Cena) VALUES (1, 'Postavka 2', 2, 15.25)"
CurrentDb.Execute "INSERT INTO tblPostavke (NadrejenaID, Naziv, Kolicina, Cena) VALUES (0, 'Naročilo 1002', 0, 0)"
CurrentDb.Execute "INSERT INTO tblPostavke (NadrejenaID, Naziv, Kolicina, Cena) VALUES (4, 'Postavka 1', 1, 12)"

Ustvarite prazen obrazec, ga shranite kot frmPostavke in ostanite v pogledu načrta. Izberite Načrt obrazca › Kontrolniki › Kontrolniki ActiveX (Form Design › Controls › ActiveX Controls), označite WKL TreeList in kliknite V redu. Kontrolnik narišite dovolj široko za tri stolpce in ga poimenujte List1. Shranite obrazec.

Obrazec naj ostane odprt v pogledu načrta. Vstavite standardni modul s to proceduro, postavite kazalec vanjo in pritisnite F5:

Public Sub DefineList()
With Forms!frmPostavke!List1.Object
    .RecordSource = "tblPostavke"
    .KeyField = "PostavkaID": .ParentField = "NadrejenaID": .TextField = "Naziv"
    .ExpandLevel = 1
    .Bands.Add "Vrednosti", "Vrednosti"
    .Columns.Add("Naziv", "Postavka").Width = 2600
    .Columns.Add("Kolicina", "Količina", "Vrednosti").Summary = wsuSum
    With .Columns.Add("Cena", "Cena", "Vrednosti")
        .Format = "Currency"
        .Summary = wsuSum
    End With
    .FormatRules.Add("Cena", wrkValue, wroGreater, 30).Bold = True
    .ShowFooter = True
End With
DoCmd.Close acForm, "frmPostavke", acSaveYes
End Sub

Procedura obrazec zapre in shrani; definicija je z obrazcem shranjena v ColumnLayout. Za naslednji korak odprite obrazec v pogledu obrazca.

Enake nastavitve lahko naredite brez kode: list z lastnostmi, vrstica Po meri [...] in strani oblikovalnika Vir zapisov, Stolpci, Pasovi in Pravila oblikovanja.

Izberite celico Količina v vrstici Postavka 2, vnesite 3 in pritisnite Enter.

• Dve naročili s postavkami; Naročilo 1001 je razširjeno. Glava prikazuje pas Vrednosti nad stolpcema Količina in Cena.
• Cene so prikazane v valutni obliki sistema Windows; 99,00 € (Postavka 1 naročila 1001) je napisano krepko, ker je večje od 30.
• Noga prikazuje vsoti stolpcev Količina in Cena za vse zapise.
• Po 4. koraku je količina postavke 2 v tblPostavke enaka 3, vsota v nogi pa se je povečala za 1.

• Uporaba stolpcev za iskanje in Pogojno oblikovanje celic.
• Gradnja drevesa iz ploskih zapisov.
• Izvoz seznama v Excel.
• Pregled pojmov.