După cum ați observat, în exemplele anterioare, Access are propria sa cale, uneori destul de complicată, de a realiza o anumită sarcină. Nu face excepție nici particularizarea panglicii.

Aveți posibilitatea să utilizați în continuare Custom UI Editor for Microsoft Office (sau orice alt editor XML) pentru a introduce și valida codul XML, dar nu îl puteți utiliza pentru a salva automat XML-ul într-o bază de date Access așa cum ați stocat XML în Word și PowerPoint în exemplele anterioare.

Cu Access, trebuie să stocați XML manual, într-o celulă dintr-un tabel special.

În exemplul următor, veți vedea cum se modifică Panglica din Access adăugând o filă nouă, un grup și un buton de comutare, la fel cum am adăugat aceste elemente în Panglica din Word în secțiunea anterioară. Când panglica din Access a fost modificată, aveți posibilitatea să faceți clic pe noul buton de comutare și să vedeți mesajul "Buton apasat" sau "Buton eliberat". Rezultatul este același ca în secțiunea anterioară, " Comutare folosind butonul de comutare Toggle ", dar pașii pentru a obține acest rezultat în Access sunt destul de diferiți de cei făcuți pentru a adăuga un buton de comutare pe Panglica din Word.

Urmați acești pași:

1. Deschideți o bază de date nouă necompletată pornind Access, făcând clic pe șablonul Blank Desktop Database, tastând numele R.accdb, apoi făcând clic pe butonul Creare.

(De asemenea, puteți deschide Northwind sau orice altă bază de date și să modificați Panglica urmând acești pași, dar pentru simplitate, haideți să rămânem la o bază de date necompletată pentru acest exemplu.)

2. Faceți clic dreapta pe bara de titlu a panoului de navigare unde scrie All Access Objects. (Panoul de navigare este în partea stângă.)

3. Alegeți Navigation Options din meniul contextual.

4. Verificați dacă este bifată caseta Show System Objects din caseta de dialog Navigation Options. Apoi faceți clic pe OK pentru a închide caseta de dialog. Veți crea un tabel special numit USysRibbons care nu va fi vizibil în panoul de navigare dacă această casetă de selectare nu este bifată.

5. Acum verificați dacă sunt mesaje de eroare pentru programarea de personalizare a Panglicii. Pentru aceasta, urmați acești pași:

a. Clic pe fila File de pe Panglică.

b. Clic Options.

c. Clic pe butonul Client Settings din partea stângă a panoului din caseta de dialog Access Options. Derulați în jos până când găsiți secțiunea General în partea de jos.

d. Verificați caseta de selectare Show Add-in User Interface Errors. Dacă utilizați Access 2010, această opțiune este activată în mod implicit. În Access 2013 este dezactivată în mod implicit, ca și în Word și alte aplicații Office 2013. Cu toate acestea, în aplicațiile Office 2016, este din nou activată în mod implicit.

e. Clic pe butonul OK pentru a închide caseta de dialog.

6. Apoi, veți crea tabelul special necesar. Faceți clic pe fila Create de pe panglică, apoi faceți clic pe butonul Table Design din grupul Tabels de pe Panglică.

7. Pe prima coloană a primului rând, tastați ID pentru numele câmpului și, pe a doua coloană, alegeți AutoNumber ca tip de date.

8. Pe al doilea rând, tastați RibbonName și alegeți Short Text ca tip de date.

9. Pe al treilea rând, tastați RibbonXml și alegeți Long Text ca tip de date.

10. clic pe celula în care ați tastat ID-ul pentru a o selecta, apoi faceți clic pe butonul Primary Key din grupul Tools de pe Panglică. (Poate fi necesar să faceți clic pe fila Table Tools din partea de sus.) Un simbol cheie este afișat în selectorul de înregistrări.

11. Clic pe fila File, apoi clic pe Save pentru a salva noul tabel. Asigurați-vă numele tabelului este USysRibbons. Clic pe butonul Yes în cele două casete de mesaj care sunt afișate.

12. Acum că ați proiectat structura acestui tabel special, este timpul să adăugați datele care modifică Panglica. Găsiți pe hard disk fișierul .accdb pe care tocmai l-ați creat și faceți dublu clic pe el pentru a-l deschide în Access. Faceți dublu clic pe UsysRibbons în panoul din stânga. Apoi faceți clic dreapta pe fila USysRibbons și selectați Vizualizare foaie de date (Datasheet View).

13. Ignorarați câmpul ID; acesta va genera automat numere de identificare pentru dvs.

14. Clic pe celula RibbonName și tastați Toggle— acesta este numele care va identifica panglica particularizată (puteți alege orice nume doriți, dar în acest exemplu, este folosit numele Toggle).

15. Măriți rândul atât pe verticală, cât și pe orizontală pentru a face suficient loc pentru a vizualiza codul XML pe care îl veți adăuga la celula RibbonXml. (A se vedea figura de mai jos.) Acest pas nu este absolut necesar, dar vă face mai ușor să testați și să modificați codul XML. Deci, în bara de titlu între etichetele RibbonXml și Click To Add, glisați spre dreapta pentru a extinde coloana RibbonXml.

16. Faceți clic dreapta pe selectorul de înregistrări (zona galbenă din dreapta panoului de navigare și chiar deasupra unui simbol asterisc). Alegeți înălțime rând - Row Height din meniul contextual. Tastați 300 și faceți clic pe OK pentru a închide caseta de dialog Row Height.

17. Tastați următorul cod în celula RibbonXml:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">

<ribbon

startFromScratch="false">

   <tabs>

      <tab id="t1" label="Execute">

         <group id="g1" label="Run Test">

<toggleButton id="tbutton1" 

label="Click to Toggle" 

imageMso="DeclineInvitation" 

onAction="togtest"/>

         </group>

      </tab>

   </tabs>

</ribbon>

</customUI>

Testarea panglicii noi

Acum sunteți gata să alegeți noua panglică ca panglică implicită pentru această bază de date. Trebuie să selectați în mod specific panglica particularizată pe care ați numit Toggle. Urmați acești pași:

1. Deschideți baza de date pe care ați închis-o în pasul 19 în exercițiul anterior.
2. Faceți clic pe fila File, apoi alegeți Options pentru a deschide caseta de dialog Access Options.
3. Faceți clic pe butonul Current Database.
4. Derulați în jos până când găsiți secțiunea Ribbon And Toolbar Options section în caseta de dialog.
5. Deschideți caseta listă verticală Ribbon Name și selectați Toggle. (Dacă la pasul 11 din exercițiul anterior numele tabelului este altul decât USysRibbons, opțiunea Toggle nu va apărea în lista verticală.)
6. Clic OK pentru a închide caseta de dialog.
7. Un mesaj vă informează că trebuie să închideți apoi redeschideți această bază de date pentru ca această nouă opțiune să aibă efect. Faceți acest lucru.
8. Acum ar trebui să vedeți o filă nouă numită Execute pe Panglică, așa cum se arată în figura următoare.

Reamintiți-vă că aveți această linie de cod în XML: onAction="togtest". Asta înseamnă că atunci când am făcut clic, este executată procedura VBA numită togtest. Dar încă nu ați creat această procedură într-un modul VBA. Veți face asta în secțiunea următoare.