Κατασκευή Προσαρμοσμένης Κορδέλα για Access 2010 Μάθημα 2 (Ribbon Tutorial 2 )

[Rogerk]

Κατασκευή Προσαρμοσμένης Κορδέλα για Access 2010 Μάθημα 2 (Ribbon Tutorial 2 )

Μάθημα Δεύτερο

Οργάνωση Αντικειμένων προσαρμοσμένης Κορδέλας - Προσαρμόζουμε Ρουτίνες για επιστροφή τιμών - Λειτουργικότητα - Αλληλεπίδραση με Δείγμα βάσης δεδομένων – Τακτοποίηση πλοήγησης.

Στο προηγούμενο μάθημά μας. (ΕΔΩ) μάθαμε πώς να κατασκευάζουμε μια απλή κορδέλα Ribbon και να την φορτώνουμε στην εφαρμογή μας στην Access. Σ΄ αυτό το μάθημα θα δημιουργήσουμε βήμα – βήμα μια προσαρμοσμένη κορδέλα πλήρως λειτουργική σε ένα δείγμα βάσης δεδομένων.
Επιλέξαμε ως δείγμα Βάσης δεδομένων την Β.Δ. του office με τίτλο : Order management database.accdb
Αρχίζουμε δημιουργώντας ένα πίνακα USysRibbons με τα κατωτέρω χαρακτηριστικά :
Πεδίο / Τύπος Δεδομένων
ID / Αυτόματη Αρίθμηση
RibbonName/ Κείμενο
RibbonXml/Υπόμνημα
Και όποιο άλλο περιγραφικό πεδίο επιθυμούμε . Στον πίνακα αυτόν θα ενσωματώσουμε το αρχείο XML με την παραμετροποιημένη κορδέλα μας για να το διαβάσει η εφαρμογή μας.

Παρατήρηση : Σε κάθε περίπτωση που θέλουμε να επεξεργαστούμε τη Βάση Δεδομένων μας χωρίς την εμφάνιση της προσαρμοσμένης κορδέλας μας τότε κλείνουμε την βάση και την ξανανοίγουμε κρατώντας το πλήκτρο Shift πατημένο κατά το άνοιγμα. Η προσαρμοσμένη κορδέλα μας δεν εμφανίζει τα εργαλεία σχεδίασης.


Δημιουργούμε επίσης δυο λειτουργικές μονάδες ( Modules) για να αποκτήσει λειτουργικότητα η κορδέλα μας.
Το πρώτο Module το οποίο ονομάσαμε (basRibbonLoadCallbacks) στο οποίο προσθέτουμε τον παρακάτω κώδικα :

Option Compare Database
Option Explicit
Public gobjRibbon As IRibbonUI
Public Sub OnRibbonLoad(objRibbon As IRibbonUI)
    Set gobjRibbon = objRibbon
End Sub

Το IRibbonUI είναι το αντικείμενο της Access που είναι υπεύθυνο να δημιουργήσει την προσαρμοσμένη κορδέλα μας ε το φόρτωμα της Β.Δ. και αποθηκεύουμε προσωρινά στην μνήμη , ένα αντίγραφο του αντικειμένου αυτού σε μια καθολική μεταβλητή για να καλέσουμε τις μεθόδους του.


Κορδέλα -1 . Προσθήκη Kαρτελών (Tabs)

Επιλέξαμε να δώσουμε τα ονόματα όπως αναφέρονται στο αρχείο XML που δημιουργήσαμε για την εμφάνιση των καρτελών μας :
Καρτέλες
«Κεντρική» : Θα εμφανίζει την αρχική σελίδα της εφαρμογής μας και στην κορδέλα θα είναι προσαρμοσμένα εικονίδια τα οποία πατώντας τα θα μεταβαίνουν στις υπόλοιπες καρτέλες της εφαρμογής. Στην «Κεντρική θα υπάρχει κουμπί κλεισίματος της Εφαρμογής.
«Διαχείριση Παραγγελιών»:
«Διαχείριση Προϊόντων»:
«Διαχείριση Πελατών»:
«Υπάλληλοι»:
«Διαχείριση Εφαρμογής»:
«Εφαρμογές»:
«Υποστήριξη »:

Γραφουμε το XML αρχείο μας και το επικολλάμε στην πρώτη εγγραφή του πίνακα USysRibbons στο πεδίο Ribbon Xml. Στο RibbonName δίνουμε ένα μοναδικό όνομα : Custom RibbonToolbar Lesson 02. Κορδέλα 1

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad">
<ribbon startFromScratch="true">
<tabs>
<tab id="TabHome" label="Κεντρική"></tab>
<tab id="TabOrders" label="Διαχείριση Παραγγελιών"></tab>
<tab id="TabProducts" label="Διαχείριση Προϊόντων"></tab>
<tab id="TabCustomers" label="Διαχείριση Πελατών"></tab>
<tab id="TabEmployees" label="Υπάλληλοι"></tab>
<tab id="TabAdministration" label="Administration"></tab>
<tab id="TabAplications" label="Εφαρμογές"></tab>
<tab id="TabSupport" label="Υποστήριξη"></tab>
</tabs>
</ribbon>
</customUI>

Η κορδέλα της εφαρμογής μας έχει τη μορφή του συνημμένου αρχείου : Order_management_database_Ribbon_Toolbar_Tutorial_ Lesson_2-4.accdb
Αφού επιλέξετε στη φόρμα εκκίνησης ως κορδέλα την : Custom RibbonToolbar Lesson 02. Κορδέλα 1



Κορδέλα -2 . Προσθήκη αρχικών κουμπιών και εικονιδίων στις υπόλοιπες καρτέλες εκτός της κεντρικής

Προσθέτουμε στην πρώτη καρτέλα ( Tab) , ομάδες (groups) και κουμπιά (buttons) με ένα εικονίδιο( imageMso) σε μεγάλο μέγεθος ( size="large"). Δίνουμε ονόματα στις ετικέτες μας (label).
Το XML αρχείο μας παίρνει αυτή την μορφή :

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad">
  <ribbon startFromScratch="true">
    <tabs>
      <!-- ΤΑΒ ΜΑΙΝ -->
      <tab id="TabTabHome" label="Κεντρική">
        <group id="TabHomeGrp1" label="Logo">
          <button id="TabHomeGrp1btn1" size="large" label="Λογότυπο" imageMso="OfficeButtonFeedback" />
        </group>
        <group id="TabHomeGrp2" label="Manage Orders">
          <button id="TabHomeGrp2btn1" size="large" label="Διαχείριση Παραγγελιών" imageMso="GroupProjectSchedule" />
        </group>
        <group id="TabHomeGrp3" label="Manage Customers">
          <button id="TabHomeGrp3btn1" label="Διαχείριση Πελατών" size="large" imageMso="AccountSettings" />
        </group>
        <group id="TabHomeGroup4" label="Manage Products">
          <button id="TabHomeGrp42btn1" label="Διαχείριση Προϊόντων" size="large" imageMso="LookUp" />
        </group>
        <group id="TabHomeGrp5" label="Employees">
          <button id="TabHomeGrp5btn1" label="Υπάλληλοι" size="large" imageMso="FileCreateDocumentWorkspace"/>
        </group>
        <group id="TabHomeGrp6" label="Administration">
          <button id="TabHomeGrp6btn1" label="Διαχείριση Προγράμματος" size="large" imageMso="FileDocumentEncrypt"/>
        </group>
        <group id="TabHomeGrp7" label="Applications">
          <button id="TabApplicationsGrp7btn1" label="Εφαρμογές" size="large" imageMso="AllCategories"/>
        </group>
        <group id="TabHomeGrp8" label="Support">
          <button id="TabHomeGrp7btn1" label="Υποστήριξη - Σχετικά" size="large" imageMso="Info"/>
        </group>
        <group id="TabHomeGrp9" label="Exit">
          <button id="TabHomeGrp8btn1" label="Έξοδος" size="large" imageMso="PrintPreviewClose" />
        </group>
      </tab>
      <tab id="TabOrders" label="Διαχείριση Παραγγελιών"></tab>
      <tab id="TabCustomers" label="Διαχείριση Πελατών"></tab>
      <tab id="TabEmployees" label="Υπάλληλοι"></tab>
      <tab id="TabAdministration" label="Administration"></tab>
      <tab id="TabAplications" label="Εφαρμογές"></tab>
      <tab id="TabSupport" label="Υποστήριξη"></tab>
    </tabs>
  </ribbon>
</customUI>

Η κορδέλα της εφαρμογής μας έχει τη μορφή του συνημμένου αρχείου : Order_management_database_Ribbon_Toolbar_Tutorial_ Lesson_2-4.accdb
Αφού επιλέξετε στη φόρμα εκκίνησης ως κορδέλα την : Custom RibbonToolbar Lesson 02. Κορδέλα 2


Κορδέλα -3 . Προσθήκη πρώτης ομάδας με δυο κουμπιά (Buttons) και εικονίδια στις καρτέλες εκτός της "Κεντρικής"

Επίσης προσθέτουμε και από μια ομάδα , με ένα κουμπί Home και ένα κουμπί χαρακτηριστικού προσδιορισμού θέσης της αντίστοιχης καρτέλας που βρισκόμαστε κατά την πλοήγησή μας στην εφαρμογή.
Παρατηρήστε επίσης ότι σε όλες τις καρτέλες εκτός της Κεντρικής έχει τεθεί ένας διαχωριστής (separator) στην πρώτη ομάδα μεταξύ του πρώτου και του δεύτερου κουμπιού.

Το XML αρχείο μας παίρνει αυτή την μορφή :

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad">
<ribbon startFromScratch="true">
<tabs>
<!-- ΤΑΒ ΜΑΙΝ -->
<tab id="TabTabHome" label="Κεντρική">
<group id="TabHomeGrp1" label="Logo">
<button id="TabHomeGrp1btn1" size="large" label="Λογότυπο" imageMso="OfficeButtonFeedback" />
</group>
<group id="TabHomeGrp2" label="Manage Orders">
<button id="TabHomeGrp2btn1" size="large" label="Διαχείριση Παραγγελιών" imageMso="GroupProjectSchedule" />
</group>
<group id="TabHomeGrp3" label="Manage Customers">
<button id="TabHomeGrp3btn1" label="Διαχείριση Πελατών" size="large" imageMso="AccountSettings" />
</group>
<group id="TabHomeGroup4" label="Manage Products">
<button id="TabHomeGrp42btn1" label="Διαχείριση Προϊόντων" size="large" imageMso="LookUp" />
</group>
<group id="TabHomeGrp5" label="Employees">
<button id="TabHomeGrp5btn1" label="Υπάλληλοι" size="large" imageMso="FileCreateDocumentWorkspace"/>
</group>
<group id="TabHomeGrp6" label="Administration">
<button id="TabHomeGrp6btn1" label="Διαχείριση Προγράμματος" size="large" imageMso="FileDocumentEncrypt"/>
</group>
<group id="TabHomeGrp7" label="Applications">
<button id="TabApplicationsGrp7btn1" label="Εφαρμογές" size="large" imageMso="AllCategories"/>
</group>
<group id="TabHomeGrp8" label="Support">
<button id="TabHomeGrp7btn1" label="Υποστήριξη - Σχετικά" size="large" imageMso="Info"/>
</group>
<group id="TabHomeGrp9" label="Exit">
<button id="TabHomeGrp8btn1" label="Έξοδος" size="large" imageMso="PrintPreviewClose" />
</group>
</tab>
<!-- ΤΑΒ ORDERS -->
<tab id="TabOrders" label="Διαχείριση Παραγγελιών">
<group id="TabOrdersGrp1" label="Orders">
<button id="TabOrdersGrp1btn1" size="large" label="Επιστροφή στην Κεντρική" imageMso="ViewsResetToDefault" />
<separator id="TabOrdersGrp1Sep1"/>
<button id="TabOrdersGrp1btn2" size="large" label="Παραγγελίες" imageMso="GroupProjectSchedule" />
</group>
</tab>
<!-- ΤΑΒ CUSTOMERS -->
<tab id="TabCustomers" label="Διαχείριση Πελατών">
<group id="TabCustomersGrp1" label="Customers">
<button id="TabCustomersGrp1btn1" size="large" label="Επιστροφή στην Κεντρική" imageMso="ViewsResetToDefault" />
<separator id="TabCustomersGrp1Sep1"/>
<button id="TabCustomersGrp1btn2" label="Διαχείριση Πελατών" size="large" imageMso="AccountSettings" />
</group>
</tab>
<!-- ΤΑΒ EMPLOYEES -->
<tab id="TabEmployees" label="Υπάλληλοι">
<group id="TabEmployeesGrp1" label="Employees">
<button id="TabEmployeesGrp1btn1" size="large" label="Επιστροφή στην Κεντρική" imageMso="ViewsResetToDefault" />
<separator id="TabEmployeesGrp1Sep1"/>
<button id="TabEmployeesGrp1btn2" label="Υπάλληλοι" size="large" imageMso="FileCreateDocumentWorkspace"/>
</group>
</tab>
<!-- ΤΑΒ ADMINISTRATION -->
<tab id="TabAdministration" label="Administration">
<group id="TabAdministrationGrp1" label="Διαχείριση Προγράμματος">
<button id="TabAdministrationGrp1btn1" size="large" label="Επιστροφή στην Κεντρική" imageMso="ViewsResetToDefault" />
<separator id="TabAdministrationGrp1Sep1"/>
<button id="TabAdministrationGrp1btn2" label="Διαχείριση" size="large" imageMso="FileDocumentEncrypt"/>
</group>
</tab>
<!-- ΤΑΒ APLICATIONS -->
<tab id="TabApplications" label="Εφαρμογές">
<group id="TabApplicationsGrp1" label="Applications">
<button id="TabApplicationsGrp1btn1" size="large" label="Επιστροφή στην Κεντρική" imageMso="ViewsResetToDefault" />
<separator id="TabApplicationsGrp1Sep1"/>
<button id="TabAplicationsGrp1btn21" label="Εφαρμογές" size="large" imageMso="AllCategories"/>
</group>
</tab>
<!-- ΤΑΒ SUPPORT -->
<tab id="TabSupport" label="Υποστήριξη">
<group id="TabSupportGrp1" label="Support">
<button id="TabSupportGrp11btn1" size="large" label="Επιστροφή στην Κεντρική" imageMso="ViewsResetToDefault" />
<separator id="TabSupportGrp11Sep1"/>
<button id="TabSupportGrp1btn2" label="Υποστήριξη - Σχετικά" size="large" imageMso="Info"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>

Η κορδέλα της εφαρμογής μας έχει τη μορφή του συνημμένου αρχείου : Order_management_database_Ribbon_Toolbar_Tutorial_ Lesson_2-4.accdb
Αφού επιλέξετε στη φόρμα εκκίνησης ως κορδέλα την : Custom RibbonToolbar Lesson 02. Κορδέλα 3

Αφού τακτοποιήσαμε την εμφάνιση στην εφαρμογή μας τώρα πρέπει να δώσουμε και εντολές στα κουμπιά για να ανοίγουν κάποιες φόρμες και να εστιάζει η εφαρμογή μας στην αντίστοιχη καρτέλα.


Κορδέλα -4 . Πλοήγηση από τα κουμπιά της Κεντρικής Καρτέλας στις λοιπές Καρτέλες .

Δημιουργία Callbacks για πλοήγηση στην Εφαρμογή.
Προσθήκη Χαρακτηριστικών και Κώδικα για μετάβαση από τα κουμπιά της «Κεντρικής» στις αντίστοιχες καρτέλες.

Θα αρχίσουμε με απλές εντολές τις οποίες δεν θα χρησιμοποιήσουμε αργότερα και τις θέτουμε για εκπαιδευτικό σκοπό.

Θέλουμε αυτή τη στιγμή όταν στην «Κεντρική» Καρτέλας μας κάνουμε κλικ σε κάποιο από τα εικονίδιά της , η εφαρμογή να εστιάζει και να μας εμφανίζει την αντίστοιχη καρτέλα της εφαρμογής ως ενεργή. Παράδειγμα όταν κάνουμε κλικ στο κουμπί «Υπάλληλοι» της «κεντρικής» να εστιάζει η εφαρμογή και να εμφανίζει την καρτέλα «Υπάλληλοι».

Για να το επιτύχουμε αυτό θέλουμε ρουτίνες επιστροφής (callbacks) για μετάβαση από τα κουμπιά της «Κεντρικής» Καρτέλας στις Επιμέρους Καρτέλες (Button to Tab).
Επίσης συμπληρώνουμε το αρχείο μας XML με το χαρακτηριστικό onAction για κάθε καρτέλα (Tab)

onAction="GotoTab2Orders" κ.λ.π.

και για να επιστρέψουμε στην Κεντρική καρτέλα

onAction="GotoTab1Home"

Προσθέτουμε τον ακόλουθο κώδικα στην εφαρμογή μας για την επιστροφή τιμών :

'***** TABS Navigation - **************
Sub GotoTab1Home(control As IRibbonControl)
gobjRibbon.ActivateTab "Tab1Home"
End Sub

Sub GotoTab2Orders(control As IRibbonControl)
gobjRibbon.ActivateTab "TabOrders"
End Sub

Sub GotoTab3Customers(control As IRibbonControl)
gobjRibbon.ActivateTab "TabCustomers"
End Sub

Sub GotoTab4Products(control As IRibbonControl)
gobjRibbon.ActivateTab "TabProducts"
End Sub

Sub GotoTab5Employees(control As IRibbonControl)
gobjRibbon.ActivateTab "TabEmployees"
End Sub

Sub GotoTab6Administration(control As IRibbonControl)
gobjRibbon.ActivateTab "TabAdministration"
End Sub

Sub GotoTab7Applications(control As IRibbonControl)
gobjRibbon.ActivateTab "TabApplications"
End Sub

Sub GotoTab8Support(control As IRibbonControl)
gobjRibbon.ActivateTab "TabSupport"
End Sub
‘*********************************************** *****

Η κορδέλα της εφαρμογής μας έχει τη μορφή του συνημμένου αρχείου : Order_management_database_Ribbon_Toolbar_Tutorial_ Lesson_2-4.accdb
Αφού επιλέξετε στη φόρμα εκκίνησης ως κορδέλα την : Custom RibbonToolbar Lesson 02. Κορδέλα 4



Κορδέλα -5 . Προσθήκη Βασικής λειτουργίας κουμπιών για άνοιγμα φόρμας

Θα προσθέσουμε στη συνέχεια βασικές εντολές στα κουμπιά της Κεντρικής καρτέλας, ώστε όταν κάνουμε κλικ στα κουμπιά,να φορτώνει και η αντίστοιχη βασική φόρμα της εφαρμογής μας και παράλληλα η εφαρμογή να εστιάζει στην ανάλογη καρτέλα.

Παράδειγμα όταν κάνουμε κλικ στο εικονίδιο «Υπάλληλοι» της «Κεντρικής» να φορτώνει η αντίστοιχη φόρμα «Add Employees» στην καρτέλα «Υπάλληλοι» και να εμφανίζεται η καρτέλα «Υπάλληλοι» ως ενεργή.

Για να το πετύχουμε αυτό θα προσθέσουμε στον Module τον παρακάτω κώδικα:

Option Compare Database
Option Explicit
Public intTab As Integer

Public Sub fncOnAction(control As IRibbonControl)
    On Error GoTo HandleError
    Select Case control.ID
    
    Case "TabHomeGrp1btn1": DoCmd.OpenForm "frmMain"
    Case "TabHomeGrp2btn1": DoCmd.OpenForm "Add an Order and Details":  gobjRibbon.ActivateTab "TabOrders"
    Case "TabHomeGrp3btn1": DoCmd.OpenForm "Add or Delete Customer":  gobjRibbon.ActivateTab "TabCustomers"
    Case "TabHomeGrp4btn1": DoCmd.OpenForm "frmProducts":  gobjRibbon.ActivateTab "TabProducts"
    Case "TabHomeGrp5btn1": DoCmd.OpenForm "Add Employees":  gobjRibbon.ActivateTab "TabEmployees"
    Case "TabHomeGrp6btn1": DoCmd.OpenForm "frmSelectRibbon":  gobjRibbon.ActivateTab "TabAdministration"
    Case "TabHomeGrp7btn1": DoCmd.OpenForm "frmUSysRibbons":  gobjRibbon.ActivateTab "TabAdministration"
    Case "TabHomeGrp8btn1": DoCmd.OpenForm "Change Our Company Information"
    
    Case "TabOrdersGrp1btn1": DoCmd.OpenForm "frmMain"
    Case "TabCustomersGrp1btn1": DoCmd.OpenForm "frmMain"
    Case "TabProductsGrp1btn1": DoCmd.OpenForm "frmMain"
    Case "TabEmployeesGrp1btn1": DoCmd.OpenForm "frmMain"
    Case "TabAdministrationGrp1btn1": DoCmd.OpenForm "frmMain"
    Case "TabApplicationsGrp1btn1": DoCmd.OpenForm "frmMain"
    Case "TabSupportGrp1btn1": DoCmd.OpenForm "frmMain"
    
    Case "TabOrdersGrp1btn2": DoCmd.OpenForm "Add an Order and Details":  gobjRibbon.ActivateTab "TabOrders"
    Case "TabCustomersGrp1btn2": DoCmd.OpenForm "Add or Delete Customer":  gobjRibbon.ActivateTab "TabCustomers"
    Case "TabProductsGrp1btn2": DoCmd.OpenForm "frmProducts": gobjRibbon.ActivateTab "TabProducts"
    Case "TabEmployeesGrp1btn2": DoCmd.OpenForm "Add Employees": gobjRibbon.ActivateTab "TabEmployees"
    Case "TabAdministrationGrp1btn2": DoCmd.OpenForm "frmSelectRibbon": gobjRibbon.ActivateTab "TabAdministration"
    Case "TabApplicationsGrp1btn2": DoCmd.OpenForm "frmUSysRibbons": gobjRibbon.ActivateTab "TabApplications"
    Case "TabSupportGrp1btn2": DoCmd.OpenForm "Change Our Company Information": gobjRibbon.ActivateTab "TabSupport"
    
    Case Else
        MsgBox "ÊÜíáôå Êëéê óôï Êïõìðß " & control.ID, vbInformation, "Åðéâåâáßùóç ÅíÝñãåéáò"
    End Select
ExitHere:
    Exit Sub
HandleError:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Åðéâåâáßùóç ÓöÜëìáôïò", Err.HelpFile, Err.HelpContext
    Resume ExitHere:
End Sub

Η κορδέλα της εφαρμογής μας έχει τη μορφή του συνημμένου αρχείου : Order_management_database_Ribbon_Toolbar_Tutorial_ Lesson_2-5.accdb
Αφού επιλέξετε στη φόρμα εκκίνησης ως κορδέλα την : Custom RibbonToolbar Lesson 02. Κορδέλα 5



Τέλος του Δεύτερου Μαθήματος.

Στο Επόμενο tutorial θα προσθέσουμε διάφορα στοιχεία ελέγχου στην προσαρμοσμένη κορδέλα μας προκειμένου να είναι πλήρως λειτουργική.


Βιβλιογραφία – Πηγές

Access 2010 Programmer's Reference
VBA Expert Access 2007 Programming

Ribbons for Access 2007 / Access 2010 - Callbacks

Micrsoft Access Tips