How to enable / disable menu in forms through a function

I have multiple forms with menus / sub-menus in them. Currently i have written
seperate codes in each form for enabling / disabling the menus.

Can someone help me in writing a function which takes form as input parameter and disable / enables the menu of that form.

Thanks in advance.

Hi there,

This may help.Insert Below Sub into your Module

Public Sub DisableMenu(Frm As Object)
Frm.MenuName.Enabled = False
End Sub


Then just use 'Call DisableMenu(Form1)' to run the code on that Form.


Work is necessary for man. Man invented the alarm clock.