如何在Access中生成右键菜单

ququ

如何在Access中生成右键菜单
来源：ACCESS交流中心 royi

1.工具-[自定义]-[工具栏]>[新建]-将生成的工具栏[自定义1]选中-属性-将类型改为[菜单栏]，其[工具栏名称]也可改为其它名子，点[关闭]。

2.选择[自定义]框中的[命令]>[文件]>[自定义]，将其拖至[自定义1]菜单栏（可反复拖取）-选取[自定义1]菜单栏中的某个菜单，单击右键，选[属性]，可以更改菜单名[标题]，[所在操作]中填宏或function函数（其格式为“=functionname()”）。-然后关闭对话框。

3.将所有的菜单都设置完后，再次选取[自定义]对话框中的[自定义1]菜单栏-选[属性]-将其[类型]改为[弹出式]。确定。

4.选取[自定义]>[工具栏]>[快捷菜单]，勾取。可在出现的[快捷菜单]栏中看到[自定义]项，我们定义的快捷菜单就在内。可选取，单击右键，选[属性]，更改其相应的属性。

5.在需要的地方，如下写码：
CommandBars("自定义1").Controls(2).Enabled =True '定义其某个菜单是否可用。需要时再加。
CommandBars("自定义1").ShowPopup ‘弹出快捷菜单

如果[工具栏名称]为[右键菜单]，则可写为：
CommandBars("右键菜单").Controls(2).Enabled =True
CommandBars("右键菜单").ShowPopup

a30088

多谢分享!

ywfqd

这个最早可是我写的，后被access911收录。当然也参考了一点其他人的东西。

kunian

求一个2007版本的，步骤完全不一样了