Lasten trak za aplikacijo
V tej vadnici z oblikovalnikom trakov majhni podatkovni zbirki dodate lasten trak: zavihek z dvema ukazoma, ukaz, ki je viden samo med razvojem, in pogled Datoteka z opravilom. Za vse skupaj potrebujete približno petnajst minut, VBA pa razen ene funkcije ne potrebujete.
Predpogoji
- Microsoft 365 Access, v 32- ali 64-bitni različici, z nameščenim paketom WKL Forms Object Library 1.49 ali novejšim, registriranim za trenutnega uporabnika sistema Windows (Namestitev izdanega paketa).
- Nameščen dodatek WKL Extensions, da Orodja zbirke podatkov › Dodatki (Database Tools › Add-Ins) ponuja WKL Ribbon Designer:
tools\install-addin.ps1iz paketa izdaje (1.55 ali novejšega) namestiaddin\WklExtensions.accdaza trenutnega uporabnika. Brez dodatka oblikovalnik odprete tudi iz okna Immediate:CreateObject("WklForms.Ribbon").ShowDesigner. - Nova podatkovna zbirka na zaupanja vrednem mestu z obrazcem
frmStrankein poročilomrptStranke.
Koraki
1. Dodajte funkcijo za izvoz
Ustvarite standardni modul z naslednjo vsebino:
Public Function ExportStranke() As Boolean
On Error GoTo Failed
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "tblStranke", CurrentProject.Path & "\Stranke.xlsx", True
ExportStranke = True
Exit Function
Failed:
MsgBox "Izvoz ni uspel: " & Err.Description, vbExclamation
End Function
Funkcija, ki jo kliče trak, sama obravnava svoje napake: neobravnavana napaka bi prikazala pogovorno okno z napako VBA.
2. Odprite oblikovalnik
Izberite Orodja zbirke podatkov › Dodatki › WKL Ribbon Designer. Oblikovalnik se odpre na strani Ukazi.
3. Ustvarite ukaze
Trikrat kliknite Nov in izpolnite:
| Ime | Napis | Slika Office | Dejanje | Cilj |
|---|---|---|---|---|
cmdStranke | Stranke | FileOpen | Odpri obrazec | frmStranke |
cmdNatisni | Seznam strank | FilePrintPreview | Odpri poročilo (predogled tiskanja) | rptStranke |
cmdExport | V Excel | ExportExcel | Pokliči funkcijo VBA | ExportStranke |
Za cmdExport pod Vidno, ko › Profili vnesite DEV: ukaz je viden samo, dokler je podatkovna
zbirka povezana s profilom DEV upravitelja povezav (ali WklRibbonObject().Profile = "DEV").
4. Zgradite trak
Na strani Trakovi kliknite Trak: prvi trak je trak aplikacije. Izberite ga, kliknite
Zavihek in ga poimenujte tabOsnovno z napisom Osnovno; kliknite Skupina in ji dajte napis
Stranke; trikrat kliknite Vnos in pod Ukaz izberite tri ukaze; Velikost ukaza
cmdStranke nastavite na Velik. Predogled na desni prikazuje zavihek.
5. Dodajte pogled Datoteka
Na strani Pogled Datoteka kliknite Zavihek (napis Moduli), Skupina opravil,
Kategorija in Opravilo ter kot ukaz opravila izberite cmdStranke. Pod Skrij vnesite
TabPrint, da skrijete Accessov zavihek Natisni.
6. Shranite in znova odprite podatkovno zbirko
Stran Preverjanje sporoča pripravljeno za shranjevanje. Kliknite V redu. Zaprite podatkovno zbirko in jo znova odprite: zavihek Osnovno prikazuje skupino Stranke.
Pričakovani rezultat
Podatkovna zbirka ima lasten zavihek s tremi ukazi, pri čemer je izvoz viden samo med razvojem, in pogled Datoteka z opravilom Stranke. Klik na Stranke odpre obrazec, klik na Seznam strank pa poročilo v predogledu tiskanja. Model je v USysWklRibbon in se ob naslednjem odprtju znova prikaže v oblikovalniku.