Create a sub procedure for all forms

[LOUIX]

Dear All,



Attached you will see an example where a shortcut menu appears on right click on the form.
The shortcut menu is called "test"

I have more than 50 forms, but i cannot add this shortcut menu to the open events of all forms.

Is there a way to create a general module or procedure so that i can refer to this general procedure/Module and call back the procedure when the forms are open.

Please let me know if you need more information

Attached a sample
Thanking you in advance

Ludovicrightclick.accdb

[Welshgasman]

I have more than 50 forms, but i cannot add this shortcut menu to the open events of all forms.

Why not? Is it just that you do not want to?

[Bulzie]

You would have to touch each one to add the code to call the single procedure?

[CJ_London]

assuming you are using docmd.openform and the forms are not modal you could have code after the openform to populate the form open event with a call to a function in a standard module.

your module code might be something like this (not tested) - note this is a public function

Public Function FormOnOpen(frm as Form)
Dim NewMenu As Object


On Error Resume Next
wiith frm
    CommandBars("test").Delete


    Set NewMenu = CommandBars.Add("test", 5, False, True)
    NewMenu.Controls.Add 1, 10093, , , True
    NewMenu.Controls.Add 1, 19, , , True
    NewMenu.Controls.Add 1, 22, , , True
    NewMenu.Controls.Add 1, 499, , , True
    NewMenu.Controls.Add 1, 497, , , True


end with


End Sub

and to use

docmd.openform "myForm"
FormOnOpen forms("myForm")


Alternatively you could have code to open each form in turn in design view and add the following to the open event

"=FormOnOpen([Form])"

plenty of examples out there how to loop through the forms collection

[davegri]

Once the menu modification code is executed, it is available to all forms that have 'test' as the Shortcut Menu Bar property (and 'yes' as the Shortcut Menu property). Maybe that's already done for all the forms.
If not, looping through the forms collection to modify a property was covered in a recent post here:
Changing property on multiple forms (accessforums.net)

[LOUIX]

Thanking you all, you help and assist me during this project. it worked now

[Welshgasman]

Thanking you all, you help and assist me during this project. it worked now

So please explain how you solved it. It could help others, after all, that is what these forums are for?