一:问题描述
学员在做采购订单时,对已完成的订单,删除按纽虽然已提示,但还是可以删除。
问:是否可以不允许删除。答:当然可以。如图
二、解决方案
在删除按纽的单击事件里面加上以下代码。可即实现
'----------------要添加的代码 开始------
Dim strStatus As String
strStatus = Me.sfrList!状态
Select Case strStatus
Case "已审核"
MsgBox "已审核订单不允许删除", vbCritical, "提示"
Exit Sub
Case "已完成"
MsgBox "已完成订单不允许删除", vbCritical, "提示"
Exit Sub
End Select
'----------------要添加的代码 结束------
不过最好的办法,还是是设置权限管理。