如何在 Access 表单中创建重做按钮？答案

【问题标题】：How to create Redo button in an Access form?如何在 Access 表单中创建重做按钮？
【发布时间】：2018-08-31 16:02:36
【问题描述】：

我正在创建一个 Access 表单并希望禁用功能区和菜单，以便用户无法重新启用导航窗格，这将允许他们访问删除/修改数据库记录。

禁用功能区菜单的一个问题是用户不再看到撤消/重做按钮。

似乎可以从 UI 创建撤消按钮：设计 -> 按钮（单击），然后选择“撤消记录”或以编程方式使用“Me.Undo”

但是，似乎没有办法重新创建重做按钮（没有“Me.Redo”）。

有没有办法重新创建重做按钮？还是启用功能区菜单是唯一的方法？（使用 Microsoft Office 365 专业增强版）

【问题讨论】：

标签： ms-access vba

【解决方案1】：

将以下内容添加到您的按钮单击事件

  DoCmd.RunCommand acCmdRedo

您可能想要添加一些错误捕获。

【讨论】：

我刚开始使用 Access。你会建议什么样的错误捕获？
这似乎与功能区菜单中的重做不同。当我键入文本然后撤消时，文本被删除。之后，如果我使用此代码按下重做按钮，已删除的文本不会重新出现，而功能区菜单中的重做按钮会使文本重新出现
有趣，我不得不承认这不是我真正尝试过的事情，只是知道大多数命令都可以通过 RunCommand 函数访问。

【解决方案2】：

我通常会禁用整个功能区和导航窗格。您可以在 File -> Options -> Current Database 下执行此操作，现在取消选中 Display Navigation Pane 和 Allow Full Menues。或按启动表单的加载事件中的代码：

'Maybe an If condition to check for admin

 DoCmd.NavigateTo "acNavigationCategoryObjectType", "acNavigationGroupTables"
 DoCmd.SelectObject acForm, vbNullString, True
 DoCmd.RunCommand acCmdWindowHide

 DoCmd.ShowToolbar "Ribbon", acToolbarNo

【讨论】：

这与重做/撤消无关。
你的重做按钮在左上角。 Access 中的蓝色。所以基本上你不需要实现一个，因为他已经在那里了。你问是否启用功能区菜单是唯一的方法。所以在这里你有另一种方式
我不知道您说的是哪个版本的 Access，但是当我在正在运行的版本中隐藏功能区菜单时，撤消/重做按钮也会消失。