怎样让表格式窗体内记录不因为焦点移动而自动保存？

bjcompass

编辑表格式窗体内记录，有时尚未完成，因为焦点移动到其他记录而自动保存了。以前我都是用非绑定控件输入数据，点击每条记录后的“保存”键再输入到绑定控件。如果控件数量多窗体非常零乱。请问还有其它更简单的办法吗。

Henry D. Sy

不要绑定表

xie62

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
    strMsg = "数据已经改变."
    strMsg = strMsg & vbCr & "你想保存吗?"
    strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then
        ' 什么也不需要做，就会保存记录
    Else
        DoCmd.RunCommand acCmdUndo
        
           End If
End Sub