0

我已经开发了一个表单，我想在用户离开修改后的记录之前提示他们保存更改。

如果用户试图离开，我希望出现一个提示，询问他们是否希望保存更改，他们可以选择“是”或“否”。

我已被告知该Before Update事件是我需要关注的事件，但我不断收到“您输入的更新前的表达式，因为事件属性设置产生了以下错误”消息。

这些是我在遇到错误之前采取的步骤：

  1. 将视图更改为表单视图
  2. 通过表格在记录中的任何地方进行更改
  3. 尝试通过我放入表单中的导航按钮导航离开表单（如果没有进行任何更改，它工作得很好，但如果进行了单个更改，则无法执行任何操作）
  4. 什么都没有发生，所以我恢复到设计视图，收到以下错误通知

错误通知

  1. 我按确定，然后收到此消息：

错误信息 2

然后我回到一号广场。

此外，自从出现此问题以来，任何条件格式都已完全停止工作；我不确定这两者是否有联系，但认为值得一提。

任何想法如何实现这一点（理想情况下没有错误）？不幸的是，我无法发布我的系统，因为它处理高度机密的数据。

更新：

我尝试了各种我修改过的代码，但都无济于事。目前，我已经完全删除了任何这样的代码，但我过去尝试过的代码是这样的：

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim ctl As Control

On Error GoTo Err_BeforeUpdate

If Me.Dirty Then
   If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
           "Save Record") = vbNo Then
      Me.undo
   End If
End If

Exit_BeforeUpdate:
   Exit Sub

Err_BeforeUpdate:
   MsgBox Err.Number & " " & Err.Description
   Resume Exit_BeforeUpdate
End Sub
4

2 回答 2

0

  1. 在设计视图中打开表单

  2. 右键单击表单，然后从弹出菜单中单击“属性”

  3. 向下滚动到“更新前”事件

  4. 一直到右边，您应该会看到一个带有椭圆（“...”）的框。单击该框以打开与更新前事件关联的代码。

  5. 如果它打开一个空白子，则您没有正确分配事件。确保事件被称为“更新前”（一个词）而不是“更新前”（两个词）。

您的错误表明这可能是问题的原因。

于 2014-11-17T20:47:13.520 回答
0

Microsoft Access 绑定表单的默认行为是在用户执行以下操作时自动保存记录：

移动到另一条记录，关闭表单或明确单击功能区上的保存按钮

因此，我认为要求用户确认是否要保存可能是多余的。

更新事件之前的表单通常用于验证，因此您可以检查已输入控件的数据并在代码中决定是否允许保存数据。

为了防止数据被保存，您可以更改 Cancel 变量，例如：

Cancel=True
MsgBox "There is a problem with the data entry", vbExclamation, "Please Check Your Data"

然后，用户必须按退出键或单击功能区上的撤消以退出编辑模式

关于您遇到的错误，请查看并尝试以下网页中记录的反编译开关：

反编译开关

在一遍又一遍地使用和保存 VBA 代码时，我偶尔会遇到错误。进行反编译通常可以解决此问题。但是，请确保在开始之前对数据库进行备份。

您也可以尝试将表单导出为文本文件，然后使用以下代码将其重新导入，这将在表单损坏时提供帮助：

    Application.SaveAsText acForm, stringFormName, stringFolderName & "\" & stringFormName & ".txt"
    Application.LoadFromText acForm, stringFormName, stringFileName
于 2014-11-17T20:13:44.157 回答