如何在Access表单中创建重做按钮?

时间:2018-08-31 16:02:36

标签: vba ms-access access-vba

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

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

似乎可以从UI中创建撤消按钮:设计->按钮(单击),然后选择“撤消记录”或通过编程方式使用“ Me.Undo”

但是,似乎没有一种方法可以重新创建“重做”按钮(没有“ Me.Redo”)。

是否可以重新创建重做按钮?还是启用功能区菜单是唯一的功能? (使用Microsoft Office 365 ProPlus)

2 个答案:

答案 0 :(得分:2)

在按钮点击事件中添加以下内容

  DoCmd.RunCommand acCmdRedo

您可能想要添加一些错误陷阱。

答案 1 :(得分:0)

我通常要做的是禁用整个功能区和导航窗格。您可以在文件->选项->当前数据库下执行此操作,现在取消选中显示导航窗格允许完整菜单。或在启动表单的load事件中按代码进行编码:

'Maybe an If condition to check for admin

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

 DoCmd.ShowToolbar "Ribbon", acToolbarNo