显式保存

懒UFO

当修改一条记录之后，不让access直接保存，而是需要显式的保存。能够实现吗？怎样实现？

WTM1

什么是显示保存

懒UFO

由于在编辑ACCESS窗体中的记录时,当将插入点移到不同的记录，或关闭正在处理的窗体或数据表时，Microsoft Access 会自动保存所添加或编辑的记录。

   ACCESS运用自动保存记录的功能,因此会产生一些误操作,我想取消ACCESS自动保存功能,通过保存命令按钮用人工保存的方法来保存记录.
    关于以上问题特请教各路高手!望不吝赐教!

Roadbeg

方法1:
在窗体的 BeforeUpdate 事件中加入检查语句.
如果是保存按钮产生的事件则保存,反之则 Cancel
注意是窗体的 BeforeUpdate 事件,而不是某个绑定控件的事件.

方法2:
其实用 Current 事件也能实现,只不过要麻烦一点.

懒UFO

谢谢 Roadbeg！

懒UFO

这段代码有错吗？如果用记录浏览按钮转到下一条记录，哪怕是单击的“否”也会保存。不信各位试试！
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If bleSave = False Then
       If Me.Dirty = True Then
            If MsgBox("本记录已更改,是否需要保存?", 4) = 7 Then
                SendKeys "{esc}", True
             End If
        End If
    Else
        bleSave = False
    End If
Private Sub 保存_Click()
bleSave = True
DoCmd.RunCommand acCmdSaveRecord
End Sub

Roadbeg

反 sendkeys 改为 窗体的 undo 方法
或置 参数 cancel=-1

懒UFO

小生愚笨。Roadbeg可以清楚一点吗？

Roadbeg

改为
Private Sub Form_BeforeUpdate(Cancel As Integer)
If bleSave = False Then
If Me.Dirty = True Then
If MsgBox("本记录已更改,是否需要保存?", 4) = 7 Then
form.undo
End If
End If
Else
bleSave = False
End If
Private Sub 保存_Click()
bleSave = True
DoCmd.RunCommand acCmdSaveRecord
End Sub
  

懒UFO

我试试！Thank you!