从Access 2010中的子表单中删除数据

Question

我正在尝试在访问表单中创建一个按钮，该按钮将退出表单而不将数据保存在表中。这就是我写的：

Private Sub Command7_Click()
Me.Undo
Dim myReply

myReply = MsgBox("Are you sure you want to exit without saving?", vbYesNo)
If myReply = vbYes Then
    DoCmd.Close
End If


End Sub

当我有一个简单的表单时，它工作正常，但如果我的表单包含sub form（与另一个表相关）并且在单击该按钮之前已在sub form中进行了更改，则记录正在保存。

如何删除main form和sub form？

中的记录