如何恢复ACCESS的默认菜单_access窗体及access控件

如何恢复ACCESS的默认菜单

时间：2003-12-13 23:14 来源：Access中国作者：zhuyiwen 阅读：次

原文地址:http://bcd.accxp.com/index.asp?Main=10&ArtID=6

作    者：林海群,朱亦文
发布日期：2002年10月30日
摘    要：通过对Microsoft Office 9.0 Object Library(OFFICE 2000)/Microsoft Office 10.0 Object Library(OFFICE XP)的引用, 重新恢复access的默认菜单.

正    文：

朱亦文的方法:

Microsoft Office 的命令栏对象

Microsoft Office 的命令栏对象，对应于菜单和工具栏。

在OFFICE家族中，所有菜单和工具栏的对象模型都作为CommandBars命令栏对象被保存在共享的Microsoft Office 9.0 Object Library对象中，如图：

' 恢复默认菜单和工具栏，搞定！
' Microsoft Office 9.0 Object Library

Public Sub EnableDefaultMenu()
' 定义命令对象
Dim oBar As CommandBar

Set oBar = CommandBars("Menu Bar")
oBar.Reset
End Sub

注：Menu Bar是指access的主菜单

林海群的方法:

Public Sub EnableDefaultMenu()
On Error Resume Next
Dim obar As CommandBar

　 For Each obar In Application.CommandBars
　 obar.Reset
　 Next
End Sub

来源于：ACCESS中国

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：在ACCESS中扩展条件格式的功能
下一篇：高手指教