Μενου Εντολών.

[kon73]

Ο τρόπος είναι απλός για μέχρι την Access 2003.

Με δεξί κλικ επάνω στο μενού επιλογών της Access
Customize / Toolbars / New

Δίνεις το όνομα του Μενού πχ Menu1

Επιλέγεις το Menu1 και πατάς properties

Στο Type δίνεις PopUp.

To Menu1 πάβει να εμφανίζεται και το βρίσκεις πλέον Tab Toolbars και στο ShortCut Menus
Με το που το επιλέξεις εμφανίζεται η μπάρα ShortCut Menus στο Custom Βλέπεις To Menu1.
Σε αυτό απλά σέρνεις εικονίδια και αρχίζεις να το στήνεις. Μπορείς να κάνεις και Copy-Paste εικονίδια για τις επιλογές του ShortCut Menu.

Με κώδικα (Με μακροεντολές το έδειξε πριν ο Τάσος)

Απλά κάνεις Τα εξής προσθέτεις το Reference Microsoft Object 12.0 Object Library
Θα χρειαστεί να ξέρεις τα Index των CommandBars και του συγκεκριμένου μενού για προσθήκη, διαγραφή ή επεξεργασία με μια Loop.

Sub CreateSimpleShortcutMenu()

    Dim cmbShortcutMenu As Office.CommandBar

    

    ' Create a shortcut menu named "SimpleShortcutMenu".

    Set cmbShortcutMenu = CommandBars.Add("SimpleShortcutMenu", _

                        msoBarPopup, False, False)

                        

    ' Add the Remove Filter/Sort command.

    cmbShortcutMenu.Controls.Add Type:=msoControlButton, Id:=605

    

    ' Add the Filter By Selection command.

    cmbShortcutMenu.Controls.Add Type:=msoControlButton, Id:=640

    

    Set cmbShortcutMenu = Nothing

End Sub