如何要求用户确认对访问记录的编辑

Question

我有一个正常工作的访问数据库，该数据库使用多个项目形式以及搜索功能以显示记录。我注意到在不注意的情况下更改记录中的信息真的很容易。

是否可以询问用户是否确定要在更新表之前对记录进行更改？

Answer 1

可以通过简单的保存/更新事件响应来处理此类事件。

response = MsgBox("Save your record?", vbQuestion + vbYesNo, "Save Confirmation")
If response = vbNo Then
    Cancel = True
    Me.Undo
End If

Cancel = True阻止记录的写入和保存。
Me.Undo将更改恢复到源

这将通过BeforeUpdate事件来处理。

或者，可以通过对表单使用特定的save函数来处理此问题（否则表单将永远不会更新源代码），并简单地发布类似的确认，其中vbYes会导致保存。

Answer 2

您可以执行其他人建议的操作并处理$data事件，或使用带有break按钮的未绑定表单。第三个选项非常适合防止意外编辑主要用于数据检索而仅偶尔用于数据编辑的表单。添加一个切换按钮，通过BeforeUpdate参数将表单从Save切换到ReadOnly。