请教：如何恢复ACCESS的默认菜单和工具栏

大熊

晕倒!

zhuyiwen

莫晕倒了！革命的宝贵财富。

笨小漆

我在那边不是有一个例子吗？这段代码没有作用吗？

Public Sub EnableDefaultMenu()
On Error Resume Next
Dim obar As CommandBar
　　For Each obar In Application.CommandBars
　　　　obar.Reset
　　Next
End Sub

zhuyiwen

以下是引用笨小漆在2002-5-5 13:26:13的发言：
我在那边不是有一个例子吗？这段代码没有作用吗？

Public Sub EnableDefaultMenu() 
On Error Resume Next 
Dim obar As CommandBar 
　　For Each obar In Application.CommandBars 
　　　　obar.Reset 
　　Next 
End Sub

我早就看到了，而是指大熊的[B]"重新设置按钮"[/B]：

不是有重新设置按钮吗,下面代码不是多余?
Public Sub EnableDefaultMenu()
    Dim oBar As CommandBar
         
    Set oBar = CommandBars("Menu Bar")
    oBar.Reset
End Sub

[em19]

jeffer

public sub enabledefaultmenu()
     dim obar as commandbar
           
     set obar = commandbars("menu bar")
     obar.reset
end sub
这段代码运行有误

zzcjp

试一试菜单栏“工具”－“启动”，在弹出的对话框中选中各种菜单。

94zpx

哈哈哈，哥哥在考大家：）
我昨天也遇见这个同类问题，在爱赛思论坛看见了你的恢复菜单默认旧帖子：）：）
昨晚不知你睡着没有，我一直在叨念着你：）：）
哥哥就是哥哥，在此致谢，请斑竹为你戴上三朵大红花哈E:\Program Files\深田恭子\cqdy-17b.jpgE:\Program Files\深田恭子\cqdy-17b.jpgE:\Program Files\深田恭子\cqdy-17b.jpg

94zpx

哦祸！
没有贴上

caoshuxue

另外建一个db1打开在工具中找“启动”，把它拉到工具栏，然后关闭，打开你的数据库，菜单上有“启动”然后就能手动恢复

my_heyou

重建一个数据库,把打不开那个库用导入导进去就行了