vba - 从访问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？