Urejanje zapisov na plošči ob seznamu

V tej vadnici zgradite seznam strank, katerega zapisi se odpirajo na plošči na desni: dvoklik odpre obrazec za urejanje ob seznamu, uporabnik ploščo z vlečenjem razširi, gumb za zapiranje ali tipka Esc pa jo znova zapre. Potrebujete približno deset minut.

• Microsoft 365 Access ali okolje Access Runtime, v 32- ali 64-bitni različici, s knjižnico WKL Forms Object Library 1.48 ali novejšo različico, nameščeno in registrirano 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, vrstica Po meri, [...] (Odpiranje oblikovalnika kontrolnika).

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

CurrentDb.Execute "CREATE TABLE tblStranke (StrankaID COUNTER PRIMARY KEY, Podjetje TEXT(50), Kraj TEXT(50))"
CurrentDb.Execute "INSERT INTO tblStranke (Podjetje, Kraj) VALUES ('Adria', 'Koper')"
CurrentDb.Execute "INSERT INTO tblStranke (Podjetje, Kraj) VALUES ('Bistra', 'Maribor')"

Ustvarite obrazec, vezan na tblStranke, s poljema z besedilom Podjetje in Kraj, širokima približno 6 cm. Za obe polji z besedilom nastavite Vodoravno sidro (HorizontalAnchor) na Oboje, da sledita širini plošče. Lastnost Drsni trakovi (ScrollBars) nastavite na Nobeden in obrazec shranite kot frmStrankaUrejanje.

Ustvarite nevezan obrazec frmStranke in ostanite v pogledu načrta. V odsek s podrobnostmi postavite:

Med njima pustite nekaj milimetrov prostora, sidra obeh pa pustite na Zgoraj levo.

Izberite Načrt obrazca › Kontrolniki › Kontrolniki ActiveX, izberite WKL Drawer, kliknite V redu in kontrolnik narišite kot ozko vrstico (približno 0,2 cm) v vrzel, visoko kot seznam. Poimenujte ga drw1.

Izberite drw1, odprite list z lastnostmi, zavihek Drugo, in v vrstici Po meri kliknite [...]. Na strani Predal kot Vsebina izberite sfUrejanje. Vrstica stanja navaja lstStranke kot kontrolnik ob plošči, predogled pa prikazuje seznam, vrstico in ploščo. Na strani Vedenje vklopite Esc zapre. Kliknite V redu in shranite obrazec.

Odprite modul s kodo obrazca in dodajte:

Private Sub Form_Load()
    Me!drw1.Object.Close
End Sub
 
Private Sub lstStranke_DblClick(Cancel As Integer)
    Me!drw1.Object.Open "frmStrankaUrejanje"
End Sub
 
Private Sub drw1_AfterOpen(ByVal SourceObject As String)
    Me!sfUrejanje.Form.Filter = "StrankaID = " & Me!lstStranke
    Me!sfUrejanje.Form.FilterOn = True
End Sub

Preklopite v pogled obrazca. Seznam zavzame celotno širino. Dvokliknite Bistra: seznam se zoži, plošča pa prikaže zapis stranke Bistra, s fokusom v njem. Vrstico povlecite v levo; plošča se razširi, polji z besedilom pa ji sledita. Pritisnite Esc: plošča se zapre. Zaprite obrazec, ga znova odprite in dvokliknite stranko: plošča se odpre v širini, na katero ste jo povlekli.

Seznam, ki vsak zapis odpre na plošči ob sebi, v širini, ki jo je uporabnik nazadnje izbral, z uporabljenimi sidri obrazca za urejanje, in ki se zapre z gumbom × na vrstici ali s tipko Esc.

• Urejanje zapisov ob seznamu – širine za posamezno vsebino, omejitve in preklic.
• WklDrawer
• Referenca API (v angleščini): WklDrawer