时 间:2019-03-27 12:06:39
作 者:ozh2k003 ID:51519 城市:广州
摘 要:[平台][删除]功能键的如何防止删除已审核,已完成订单代码
正 文:
Access快速开发平台提供的删除按钮没有设置单据在已审核,已完成 状态下防止删除,导致删除时一下不注意把已完成和已审核的单据删除了,现增加如下代码 防止误删除
增加后 可以防止误删除
'以下是添加代码部分--------
Dim 订单状态 As String
订单状态 = DLookup('状态', '采购订单表', '采购订单号=' & sqltext(Me.sfrList![采购订单号]))
If 订单状态 = '已审核' or 订单状态 = '已完成' Then
MsgBox '************不能删除************' & vbCrLf _
& '订单号[【' & Me.sfrList!采购订单号 & '】' & vbCrLf _
& '处于[【' & Me.sfrList![状态] & '】状态' & vbCrLf _
& '************不能删除************'
Exit Sub
End If
'已上是添加代码部分-------------
联系客服