窗体子表中的资料删除提示？

LJB

在论坛中找个好久，好多这方面的功能，但找到好几个都好象不是我想要的！
我需要的功能是：
    选中窗体中的要删除的记录，按下delete键的时候，用DoCmd.SetWarnings False屏蔽系统提示。根据条件判断，当满足条件时，则弹出自己设定的提示，删除记录，否则，取消删除。我试了一下，这样的代码不行，不知道错在那里，该咋改，望协助，谢谢！
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
DoCmd.SetWarnings False '关闭系统的提示
If Form_出库通知单!新单 = True Then
MsgBox "你现在不可以删除记录,因为采购已经列印了建议表", , "错误"
Cancel = True
Else
Cancel = False
End If
End Sub

t小宝

1、代码是否放在子窗体的BeforeDelConfirm事件中
2、检查：工具─选项─编辑/查找─记录更改，是否打钩，如果不想打钩，可用Delete事件

LJB

谢T版主！
主要是我的采购建议表，如果采购已经下订单出去，在子表中的订购日期一栏会有日期，没下则没有，在按下键盘上的delete的时候，我想判断，如果要删除的一栏已经有下订单（即有日期），则不允许删除，如果没有下订单的则可以删除，是否是在确认删除前的事件中控制？该如何写代码？谢谢！如图：

t小宝

因为要读取当前准备删除的记录内容，判断代码要在删除(Delete)事件中：

if not Isnull(订购日期) then
     cancel=true
end if