用 VBA 代码彻底隐藏 Access 2010 左侧的导航窗格

时　间:2014-10-19 21:21:55
作　者:Big Young   ID：252  城市：襄阳
摘　要:隐藏导航窗格
正　文:

在开发自己的解决方案时，我们可能不想让 ACCESS 2010 的导航窗格显示，这时我们可以在VBA的标准模块中新建一个函数：

Public Function CloseNavigationPane()
    '隐藏导航窗格
    Dim strTableName As Variant
    strTableName = DLookup("Name", "mSysObjects", "[Type] = 1 AND [Flags] = 0")
    DoCmd.SelectObject acTable, strTableName, True
    DoCmd.RunCommand acCmdWindowHide
End Function

然后再新建一个名为AutoExec的宏，在宏中用RunCode宏命令调用上面的CloseNavigationPane函数就OK了。