【发布时间】:2017-03-24 22:07:28
【问题描述】:
我目前有一个在共享网络上运行的 MS Access 2016 应用程序。前端是保存在共享文件夹中的 ACCDE 文件,后端保存在同一文件夹的子文件夹中(任何可以访问前端的人都可以访问后端)。我让用户在他们的桌面上创建一个快捷方式来访问前端。这使我可以进行较小的更新,而无需每个人都下载最新版本。该工具的大多数功能都可以正常工作。但是,我一直在其中一种表格上遇到问题。我有一个更新前事件,当您离开记录时,系统会询问您是否要保存。如果单击是,则会出现以下错误消息:
“作为事件属性设置输入的更新前表达式产生了以下错误:保存操作已取消。
当事件由于无法评估事件逻辑的位置而无法运行时,会发生此错误。例如,如果表单的 OnOpen 属性设置为 =[Field],则会发生此错误,因为宏或事件名称应在事件发生时运行。"
这是我尝试运行的 VBA 代码。如果有人可以在这里帮助我,我将不胜感激。谢谢!
Private Sub Form_BeforeUpdate(Cancel As Integer)
If BooReSequence = True Then
Exit Sub
End If
'When exit current tab with unsaved changes, pop up option for 'Discard' or 'Save'
Dim TLResponse As Integer
If Forms.frmFullCourseInfo.sbfrmTrainingElements.Form.Dirty Then
TLResponse = MsgBox("Do you want to save your changes?", vbYesNo, "Unsaved Changes")
If TLResponse = vbYes Then
DoCmd.Save
Else
Me.Undo
End If
End If
结束子
【问题讨论】: