Prikaz stanja storitve

V tej vadnici stanje vsake storitve iz tabele prikažete kot barvno oznako, ki sledi trenutnemu zapisu: „Teče“ zeleno, „Ustavljeno“ sivo in „Motnja“ rdeče.

• 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 ali obstoječa 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).

Proceduro prilepite v standardni modul in jo enkrat zaženite iz okna Immediate (CreateStatusSample):

Public Sub CreateStatusSample()
    With CurrentDb
        .Execute "CREATE TABLE tblStoritve (ID LONG CONSTRAINT PK_Storitve PRIMARY KEY, Storitev TEXT(50), Stanje TEXT(30))"
        .Execute "INSERT INTO tblStoritve VALUES (1, 'Usklajevanje', 'tece')"
        .Execute "INSERT INTO tblStoritve VALUES (2, 'Skladišče', 'ustavljeno')"
        .Execute "INSERT INTO tblStoritve VALUES (3, 'Odprema', 'napaka')"
        .Execute "INSERT INTO tblStoritve VALUES (4, 'Arhiv', Null)"
    End With
End Sub

Ustvarite enojni obrazec frmStoritve, vezan na tblStoritve, s poljem z besedilom Storitev. Izberite Načrt obrazca › Kontrolniki › Kontrolniki ActiveX › WKL Status Label (Form Design › Controls › ActiveX Controls), oznako narišite pod poljem z besedilom, približno 6 cm široko in 0,5 cm visoko, ter jo poimenujte lblStanje. Njen Vir kontrolnika (list z lastnostmi, zavihek Podatki) nastavite na Stanje.

Vnosi določajo, kakšno besedilo, vrsto in simbol dobi posamezna vrednost. Shranijo se z obrazcem, zato jih dodate enkrat v pogledu načrta: proceduro prilepite v standardni modul in jo zaženite, medtem ko je frmStoritve odprt v pogledu načrta, nato shranite obrazec.

Public Sub SetStatusEntries()
    With Forms!frmStoritve!lblStanje.Object
        .Caption = "Stanje"
        .NullText = "neznano"
        .ClearStatusItems
        .AddStatusItem "tece", "Teče", wskOk, "E768"
        .AddStatusItem "ustavljeno", "Ustavljeno", wskNeutral
        .AddStatusItem "napaka", "Motnja", wskBad, "E783"
    End With
End Sub

Obrazec odprite v pogledu obrazca in se pomikajte po zapisih: „Stanje: Teče“ zeleno s simbolom za predvajanje, „Ustavljeno“ sivo, „Motnja“ rdeče in „neznano“ za zapis brez stanja.

• Oznaka sledi trenutnemu zapisu in ga nikoli ne označi kot spremenjenega.
• Vrednost brez vnosa (na primer „v premoru“) je prikazana kot besedilo v oblikovani vrsti.
• Bralnik zaslona prebere „Stanje: Teče“ in vrsto.

• Referenčni priročnik API (v angleščini): WklStatusLabel: KindField, Format, Busy, Clickable.
• WklGrid: ista stanja kot stolpec seznama.