Microsoft Access Sample Code

Function for using Right Click Prevention

In Access, the user can right click and often get into a bit of trouble and cause issues. Right clicking often pulls up a sub-menu that allows the user to get into design view of the object they are working with, create unwanted filters, and other tasks that, if not executed properly, may cause issues. To help prevent unnecessary problems, there is a setting on forms that you can set to disallow the right click. But, what if you have already set up all your forms with the right click, or if you simply forget to set this setting as you create forms? Fortunately, this function will loop through all your forms and disable the ShortCutMenu for all forms.

Public Function doRightClick() Dim obj As Object Dim frm As Form For Each obj In DBEngine.Workspaces(0).Databases(0).Containers("Forms").Documents DoCmd.OpenForm obj.Name, acHidden For Each frm In Forms frm.ShortcutMenu = False Next DoCmd.Close acForm, obj.Name, acSaveYes Next End Function

If you need any help implementing this function, or if you need modifications made, please Click Here to get a free quote for your Microsoft Access Development needs.

Click Here to learn more about the WSI quoting process.