显式保存

懒UFO

我试试！Thank you!

Roadbeg

其实用 sendkeys 也可以,但有一个焦点问题,即你的 esc 是发送给谁
如果在 sendkeys 之前 加上一句
控件.setforce 就可以了
控件必须是与记录相关的  (绑定控件)

zhengjialon

)    Use the form's BeforeUpdate event to run code each time Access tries to save a record.  This way, if the user doesn't want to save a record,   you can issue an Undo command instead of saving the record.

Note:  This will generate a Message Box asking for confirmation each time a changed record is saved.  I leave it on whoever is going to follow this method to determine how to refine this per user preference. (Hint: Try a Checkbox.)

'****************** Code Start ******************
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
    strMsg = "Data has changed."
    strMsg = strMsg & "@Do you wish to save the changes?"
    strMsg = strMsg & "@Click Yes to Save or No to Discard changes."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
        'do nothing
    Else
        DoCmd.RunCommand acCmdUndo
        
        'For Access 95, use DoMenuItem instead
        'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    End If
End Sub
'****************** Code End ******************

李寻欢

但有一个这样的问题，数据已经输入，但又未触发Form_BeforeUpdate事件就退出了（比如电脑突然掉电或死机），数据还是会保存进去的吧？

zhengjialon

不会，数据还未更新，不信你试试。

Roadbeg

不会更新的,Access 是整条记录一齐处理的.

李寻欢

哦，明白了，既是BeforeUpdate都没触发，又怎会更新呢？我真傻了：）

zhengjialon

难得糊涂

oyney

    请看“未完成任务”窗体，自己现在测试出来的问题是：在按下“添加记录”按钮进入添加模式下后，如果要求输入的字段未输入数据（即有字段为空），此时按“保存按钮”会提示必须输入数据（即做合法性检查），系统停在编辑模式下，然后此时如果按下窗体的关闭按钮，就会报2115错。

没牙兔兔

嘿嘿,长知识啊~!