Število na gumbu

V tej vadnici na gumb začetnega obrazca postavite število odprtih sej, najprej s kodo, nato z vezavo na izraz, in preverite, ali se gumb še vedno odzove na klik na število.

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

Public Sub CreateBadgeSample()
    With CurrentDb
        .Execute "CREATE TABLE tblSeje (ID LONG CONSTRAINT PK_Seje PRIMARY KEY, StrankaID LONG, Odprta YESNO)"
        .Execute "INSERT INTO tblSeje VALUES (1, 1, True)"
        .Execute "INSERT INTO tblSeje VALUES (2, 1, True)"
        .Execute "INSERT INTO tblSeje VALUES (3, 2, False)"
    End With
End Sub

V pogledu načrta ustvarite prazen obrazec frmStart. Dodajte ukazni gumb, prekličite čarovnika in gumb poimenujte cmdSeje z napisom &Seje. Dodajte mu dogodkovno proceduro za klik:

Private Sub cmdSeje_Click()
    MsgBox "Odpri seje"
End Sub

Izberite Načrt obrazca › Kontrolniki › Kontrolniki ActiveX › WKL Badge (Form Design › Controls › ActiveX Controls) in značko narišite blizu zgornjega desnega kota gumba, približno v velikosti majhnega kvadrata. Poimenujte jo badSeje (list z lastnostmi, zavihek Drugo, Ime).

Odprite oblikovalnik: list z lastnostmi, zavihek Drugo, vrstica Po meri [...]. Na strani Cilj kot cilj izberite cmdSeje in za kot „Zgoraj desno“, kot ime štetih elementov vnesite Odprte seje in potrdite Poravnaj s ciljem. Izberite V redu: značka skoči na kot gumba.

V modul obrazca dodajte naslednje in preklopite v pogled obrazca:

Private Sub Form_Load()
    Me!badSeje.Object.Count = DCount("*", "tblSeje", "Odprta = True")
End Sub

Gumb prikazuje rdečo „2“ v svojem kotu. Kliknite „2“: odpre se okno s sporočilom gumba, ker klik prek značke doseže gumb.

Odstranite Form_Load in Vir kontrolnika značke (list z lastnostmi, zavihek Podatki) nastavite na:

=DCount("*";"tblSeje";"Odprta = True")

Access v listu z lastnostmi argumente loči z ločilom seznama sistema Windows: pri slovenskih in nemških področnih nastavitvah s ;, pri angleških z ,. Preklopite v pogled obrazca: število zdaj prihaja iz izraza, ki ga Access izračuna kot pri izračunanem polju z besedilom.

• Gumb v pogledu obrazca prikazuje „2“ v zgornjem desnem kotu; v pogledu načrta značka ostane tam, kjer ste jo narisali.
• Klik na število izvede cmdSeje_Click; Tab se na znački nikoli ne ustavi.
• Brez odprte seje (vsi Odprta = Ne) je značka ob odpiranju obrazca skrita.

• Prikaz števila na gumbu: pika na oznaki, barve za vsak zapis iz KindField.
• Referenčni priročnik API (v angleščini): WklBadge: vse lastnosti in pravila za vrednosti.