【发布时间】:2011-04-21 19:41:58
【问题描述】:
我想编写一些 VBA 脚本,这样当我启动我的访问应用程序时,主窗口是空白的。这是我需要删除或隐藏的内容列表:
- 整个功能区
- 状态栏
- 导航窗格
- 窗口标签
另外,我想在右键单击时禁用弹出菜单。 我还想禁用 SHIFT 绕过键启动。
我基本上希望它看起来像用 VB 或 C# 创建的应用程序。 只有当我以管理员身份登录时,才会绕过禁用的选项。
【问题讨论】:
我想编写一些 VBA 脚本,这样当我启动我的访问应用程序时,主窗口是空白的。这是我需要删除或隐藏的内容列表:
另外,我想在右键单击时禁用弹出菜单。 我还想禁用 SHIFT 绕过键启动。
我基本上希望它看起来像用 VB 或 C# 创建的应用程序。 只有当我以管理员身份登录时,才会绕过禁用的选项。
【问题讨论】:
需要VBA吗?为什么不使用普通的 Access 应用程序选项?
在 Access 2010 中,您可以通过文件 > 选项 > 当前数据库找到它们。几乎所有您想要的东西都可以取消选中 - 请参见以下屏幕截图。您在此处选择的选项与您的数据库一起保存。
您可以在按住 SHIFT 的同时启动数据库,这将覆盖这些启动选项并显示您的“正常”功能区、状态栏、导航栏......
【讨论】:
实际上,如前所述,您可以使用启动选项来删除您在弹出窗口、选项卡等方面的大部分问题。
要隐藏功能区,qat,只需使用:
DoCmd.ShowToolbar "Ribbon", acToolbarNo
因此,如果选项设置正确且只有一行代码,您就只能看到自己的表单。
这是使用上面一行代码和选项关闭选项卡的结果屏幕截图(您想要选项卡式窗口,但选项卡已关闭)。请注意您如何查看 Windows 桌面。这一切都是用上面的一行代码完成的:
【讨论】:
在启动函数中尝试以下操作
这应该做你想做的事
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.ShowToolbar "Status Bar", acToolbarNo
可能与其他 MS Access 窗口元素一起使用,我只是不想显示上面的部分。
【讨论】:
旧线程但仍然有用的信息。这是我的工作:
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.ShowToolbar "Status Bar", acToolbarNo
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
将该代码放入从名为AutoExec 的宏调用的Public Sub 中。
禁用窗口选项卡和 Shift Bypass 比较棘手,因为这些需要通过设置数据库属性来完成,或者通过数据库 Properties 或通过附加带有 CreateProperty 的属性来完成。此外,您需要退出并重新打开数据库才能使这些更改生效。
我在on techrepublic 上找到了说明,Allen Browne 在his website 上找到了更完整的说明。
【讨论】: