Private Sub Form_BeforeUpdate(Cancel As Integer) Dim strMsg As String strMsg = "This record has been changed." strMsg = strMsg & vbCrLf & "Do you want to save the changes to this record?" strMsg = strMsg & vbCrLf & "Click 'Yes' to save or 'No' to throw away the changes." If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then 'do nothing Else DoCmd.RunCommand acCmdUndo End If End Sub ถ้าจะสร้างปุ่มยกเลิกการแก้ไข ก็ให้ใช้ DoCmd.RunCommand acCmdUndo DoCmd.Close acForm, Me.Name, acSaveNo

ขอบคุณครับอ.