使用事件过程隐藏功能区工具栏后如何创建访问 ACCDE 前端？答案

【问题标题】：How to create access ACCDE front end after hiding ribbon toolbar with Event Procedure?使用事件过程隐藏功能区工具栏后如何创建访问 ACCDE 前端？
【发布时间】：2015-07-11 17:58:25
【问题描述】：

我有拆分数据库。我在加载DoCmd.ShowToolbar "Ribbon", acToolbarNo 时执行了一个事件过程来隐藏功能区工具栏。

现在我想创建 ACCDE 版本来分发我的数据库的前端。我的问题是当功能区工具栏不可见时我无法创建 ACCDE 版本。此外，如果我在DoCmd.ShowToolbar "Ribbon", acToolbarNo 之前创建 ACCDE，我将无法执行此操作，因为 ACCDE 将禁用表单的设计视图。

对此最好的解决方案是什么？我希望像 DoCmd.ShowToolbar "Ribbon", acToolbarNo 一样隐藏功能区。

【问题讨论】：

标签： ms-access ms-access-2007

【解决方案1】：

如果您有一个在启动时加载的表单，那么其On_Load 事件中的以下代码将在您设计表单时启用功能区，并在您向用户推送版本时禁用它。

If LCase(Right(CurrentDb.Name, 3)) = "mdb" Then
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accde" Then
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accdr" Then
    DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
    DoCmd.ShowToolbar "Ribbon", acToolbarYes
End If

【讨论】：