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

[kon73]

Καλησπέρα Γιώργο και Χρόνια Πολλά.

Μπορούμε να δημιουργήσουμε 2 είδη Menu.

Αυτά που δημιουργούνται για να εμφανίζονται με δεξί κλικ και αυτά που βρίσκονται ως μπάρα επάνω στην Access.

Απλά αν εννοούμαι πως θέλουμε διαφορετικό Shortcut Menu (Δεξί κλικ) τότε έχουμε να αλλάξουμε στις ιδιότητες της φόρμας στο Tab other το Shortcut Menu.

Αν θέλουμε αλλαγές στο Menu που βρίσκεται ως bar απλά εμφανίζουμε ή αποκρύπτομαι τα Menu Bars με την εντολής CommandBars("ΌνομαΜενου").visible = True / False

[Free_Ghost]

Αρχική Δημοσίευση από kon73

Καλησπέρα Γιώργο και Χρόνια Πολλά.
Μπορούμε να δημιουργήσουμε 2 είδη Menu.

Αυτά που δημιουργούνται για να εμφανίζονται με δεξί κλικ και αυτά που βρίσκονται ως μπάρα επάνω στην Access.

Μήπως μπορείς να μας πείς τον τρόπο φίλε μου για

Αρχική Δημοσίευση από kon73

Καλησπέρα Γιώργο και Χρόνια Πολλά.
αυτά που βρίσκονται ως μπάρα επάνω στην Access.

:icon_out:

[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