如果删除记录时，怎么提示不让删除？请指教

13601812106_01

请问：表1中有一字段“编号”，当表2中也有此字段，且类别为“YTC”或者“YCR”时，删除表1记录时，怎么能提示此记录不可以删除？

todaynew

用Dlookup或者Dcount计算即可

13601812106_01

todaynew 发表于 2011-10-24 17:17
用Dlookup或者Dcount计算即可

谢谢，本来想用DLOOPUP,却怎么也搞不好，请大师请点

todaynew

13601812106_01 发表于 2011-10-24 17:26
谢谢，本来想用DLOOPUP,却怎么也搞不好，请大师请点

在子窗体的成为当前事件中写：

Private Sub Form_Current()
    If DCount("*", "表2", "编号=" & Me.编号.Value & " and (类别='YTC' or 类别='YCR')") = 0 Then
        Me.Form.AllowDeletions = True
    Else
        Me.Form.AllowDeletions = False
    End If
End Sub

效果如图所示：




也就是说提醒不是目的，禁止删除是目的，达到目标了还提醒他作甚？{:soso_e128:}

管理学上有个观点叫做“直接有效”，如果能找到最直接有效的方法，其他过程均可省略，这样做可以使管理过程简洁高效。

13601812106_01

todaynew 发表于 2011-10-25 15:36
在子窗体的成为当前事件中写：

Private Sub Form_Current()

文学与编程有效的统一，实用、方便、简单。十分感谢