主子窗体数据退出时的保存问题

要求点击”退出“后提示保存，选择”否“为不保存主子窗体记录并退出。结果：主表实现了不保存退出，‘子表却保留了该数据。请问老师，应该怎样修改？点击下载此附件

Private Sub 退出_Click()
 On Error Resume Next '移动到最后时不提示错误，直接运行下一个程序
Dim strMsg As String
    strMsg = "即将关闭窗体."
    strMsg = strMsg & vbCr & "你想保存吗?"
    strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then
        ' 什么也不需要做，就会保存记录
    Else
   
        DoCmd.RunCommand acCmdUndo '主窗体【单据】没有保存记录，为什么子窗体【单据明细表】数据保留了？怎样不保留？
        
     End If
       
        DoCmd.Close '关闭窗体
End Sub