在开发自己的解决方案时，我们可能不想让 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了。