Vklop in izklop računa

V tej vadnici na obrazec uporabnika postavite stikalo za polje Aktiven. Ko uporabnik stikalo preklopi, se zapis takoj shrani; na zaklenjenem obrazcu se stikalo ne odzove.

• Microsoft 365 Access ali Access Runtime, v 32- ali 64-bitni različici, z nameščenim paketom WKL Forms Object Library 1.32 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 (CreateToggleSample):

Public Sub CreateToggleSample()
    With CurrentDb
        .Execute "CREATE TABLE tblUporabnik (ID LONG CONSTRAINT PK_Uporabnik PRIMARY KEY, Ime TEXT(50), Aktiven YESNO)"
        .Execute "INSERT INTO tblUporabnik VALUES (1, 'Novak', True)"
        .Execute "INSERT INTO tblUporabnik VALUES (2, 'Kranjc', False)"
    End With
End Sub

Ustvarite enojni obrazec frmUporabnik, vezan na tblUporabnik, s poljem z besedilom Ime. Izberite Načrt obrazca › Kontrolniki › Kontrolniki ActiveX › WKL Toggle Switch (Form Design › Controls › ActiveX Controls), stikalo narišite pod poljem z besedilom, približno 5 cm široko in 0,6 cm visoko, ter ga poimenujte tglAktiven. Njegov Vir kontrolnika (list z lastnostmi, zavihek Podatki) nastavite na Aktiven.

Odprite oblikovalnik (list z lastnostmi, zavihek Drugo, vrstica Po meri [...]). Na strani Stikalo nastavite Napis na Račun, Besedilo, ko je vklopljeno na Aktiven in Besedilo, ko je izklopljeno na Zaklenjen; predogled prikaže obe stanji. Izberite V redu.

V modul obrazca dodajte:

Private Sub tglAktiven_Change()
    Me.Dirty = False        ' the switch takes effect at once, as in the Windows settings
End Sub

Obrazec odprite v pogledu obrazca: pri Novaku je prikazano „Račun (vklopljeno) Aktiven“. Kliknite stikalo: prikaže se „Zaklenjen“ in zapis se shrani – izbirnik zapisov ne prikazuje svinčnika. Pojdite na Kranjca in pritisnite preslednico, ko je fokus na stikalu: stikalo se vklopi. Lastnost obrazca AllowEdits (Allow Edits) nastavite na Ne in poskusite znova: stikalo preklop zavrne.

• Klik ali preslednica stikalo preklopi in prek Change shrani zapis.
• tblUporabnik.Aktiven vsebuje novo vrednost takoj po preklopu.
• Na obrazcu, ki ne dovoli urejanja, ali pri stikalu z Locked = Da se nič ne spremeni.

• Uporaba stikala za polje Da/Ne: stikalo kot stolpec seznama.
• Referenčni priročnik API (v angleščini): WklToggleSwitch.