如果子窗体没有数据,窗体关闭时提示,父窗体数据不保存

由于是数据录入窗体,父窗体每录入一个字节就保存了,所以只能提示,我在窗体关闭事件中加入以下代码,然后在查询中把已保存的数据删除.

Private Sub Form_Close()
 With Me![子窗体].Form
'检查RecordCount的子窗体?
        If .RecordsetClone.RecordCount = 0 Then
'弹出提示
        MsgBox "单据没有明细数据,请在[清除空单]处删除", vbInformation
        End If
    End With
End Sub