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

Καλησπέρα και πάλι.

Μπορούμε να δημιουργίσουμε μενου εντολών αλλά στην κάθε φόρμα ξεχωριστά και όχι στην βάση..?

Στο μενού αυτό να μπορούμε να του καταχωρούμε εντολές οπως να ανοιξει μια φορμα.. να τρέξει ένα κώδικα..! κλπ


Γιώργος

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

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

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

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

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

Καλησπέρα κώστα και επίσης χρόνια πολλά

Ναι ως αφορά την access το ξέρω το είχα κάνει και παλαιότερα..
Αλλά επειδή μου έστειλε ένα ωραίο κώδικα ο τάσος και έχω αποκρύψη την βάση.. υπέθετα μήπως μπορώ να κάνω το ίδιο επάνω στην φόρμα.. οπως γινετε και στην vb6

Να σε ρωτήσω το μενού με το δεξί κλίκ μπωρώ να προσθέσω εντολές?
και εάν ναι με πιό τρόπο?

Γιώργος

Γιώργο καλησπέρα!

Σαν απομίμηση του ToolBar menu, μπορείς να βάλεις κουμπιά ή DropDowns στην κορυφή της φόρμας ή στην κεφαλίδα και να καλείς μ αυτό τον τρόπο τις εντολές.

Για τη δημιουργία νέου μενού στο δεξί κλικ στη φόρμα (για Access 2007) μπορείς αν θέλεις να δεις το παράδειγμα στο συνημμένο.

Πρόσεξε στις ιδιότητες της φόρμας στην επιλογή Γραμμή μενού συντόμευσης, ότι το όνομα που υπάρχει εκεί, είναι όνομα της μακροεντολής που δημιουργεί το μενού συντόμευσης.

Φιλικά

Τάσος

Καλημέρα Τασό

Σε ευχαριστώ το εκανα. με βολεψε περισσσοτερο το μενου..

Γιώργος

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

:hmm: :icon_out:

Ο τρόπος είναι απλός για μέχρι την 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