Izdelava ukazne vrstice
V tej vadnici v glavo obrazca s strankami postavite ukazno vrstico: glavni ukaz, razdeljeni gumb za shranjevanje in gumb menija za pogled. Vse tri nastavite v oblikovalniku brez kode, nato pa dodate še dogodkovne procedure, ki se nanje odzivajo.
Predpogoji
- Microsoft 365 Access ali Access Runtime, v 32- ali 64-bitni različici, z nameščenim paketom WKL Forms Object Library 1.27 ali novejšim, registriranim za trenutnega uporabnika sistema Windows (Namestitev izdanega paketa).
- Obrazec, vezan na tabelo, na primer
frmStrankena tabelitblStranke. - 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).
Koraki
1. V glavo obrazca vstavite tri gumbe
Odprite frmStranke v pogledu načrta, prikažite glavo obrazca in trikrat vstavite WKL Button
(Načrt obrazca › Kontrolniki › Kontrolniki ActiveX). V listu z lastnostmi (zavihek
Drugo) jih poimenujte btnNov, btnShrani in btnPogled ter nastavite barvo ozadja glave
obrazca.
2. Nastavite glavni ukaz
Izberite btnNov, v listu z lastnostmi v vrstici Po meri kliknite [...] in na strani
Gumb nastavite: vrsta Ukazni gumb, napis &Nov, simbol E710, slog Glavni ukaz. Na
strani Videz nastavite ozadje na barvo glave obrazca.
3. Nastavite razdeljeni gumb
Za btnShrani: vrsta Razdeljeni gumb, napis &Shrani, simbol E74E. Na strani Meni
vnesite dve vrstici:
| Ključ | Napis |
|---|---|
| Shrani kot &PDF | |
| xlsx | Shrani kot &Excelov delovni zvezek |
4. Nastavite gumb menija
Za btnPogled: vrsta Gumb menija, napis &Pogled, slog Neopazno. Na strani Meni:
| Ključ | Napis | Skupina | Kljukica |
|---|---|---|---|
| ime | Po &imenu | razvrscanje | ✓ |
| kraj | Po &kraju | razvrscanje |
5. Odzovite se na dogodke
Odprite modul obrazca in dodajte:
Private Sub btnNov_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub btnShrani_Click()
If Me.Dirty Then Me.Dirty = False
End Sub
Private Sub btnShrani_MenuItemClick(ByVal Key As String)
Select Case Key
Case "pdf": DoCmd.OutputTo acOutputForm, Me.Name, acFormatPDF
Case "xlsx": DoCmd.OutputTo acOutputForm, Me.Name, acFormatXLSX
End Select
End Sub
Private Sub btnPogled_MenuItemClick(ByVal Key As String)
Me.OrderBy = IIf(Key = "ime", "Ime", "Kraj")
Me.OrderByOn = True
End Sub
Ko uporabnik v meniju izbere „Po kraju“, meni ta vnos označi s kljukico, kljukico pri „Po imenu“
pa počisti, še preden se sproži MenuItemClick, ker sta oba vnosa v skupini možnosti „razvrscanje“.
Pričakovani rezultat
V pogledu obrazca glava prikazuje tri gumbe v videzu Officea. Nov doda zapis, glavni del gumba Shrani ga shrani, njegova puščica odpre obe možnosti izvoza, Pogled pa odpre meni z označenim vrstnim redom razvrščanja. Preslednica ali Enter pritisne gumb s fokusom, Alt+puščica dol ali F4 pa odpre meni.
Naslednji koraki
- Polnjenje menija tik pred odpiranjem za vnose, ki so odvisni od trenutnega zapisa.