Access快速开发平台--[删除]功能键如何防止删除已审核,已完成订单的代码-欧志华
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


Access快速开发平台--[删除]功能键如何防止删除已审核,已完成订单的代码

发表时间:2019/3/27 12:06:39 评论(1) 浏览(6165)  评论 | 加入收藏 | 复制
   
摘 要:[平台][删除]功能键的如何防止删除已审核,已完成订单代码
正 文:

      Access快速开发平台提供的删除按钮没有设置单据在已审核,已完成 状态下防止删除,导致删除时一下不注意把已完成和已审核的单据删除了,现增加如下代码 防止误删除


增加后 可以防止误删除


    '以下是添加代码部分--------
    Dim 订单状态 As String
    订单状态 = DLookup("状态", "采购订单表", "采购订单号=" & sqltext(Me.sfrList![采购订单号]))
    If 订单状态 = "已审核" or 订单状态 = "已完成" Then
        MsgBox "************不能删除************" & vbCrLf _
            & "订单号[【" & Me.sfrList!采购订单号 & "】" & vbCrLf _
            & "处于[【" & Me.sfrList![状态] & "】状态" & vbCrLf _
            & "************不能删除************"
        Exit Sub
    End If
    '已上是添加代码部分-------------


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access审核审批流程示例;Access窗体进行审批流操作,Ac...  【风行  2014/8/16】
已审核完成,禁止编辑数据  【易勋  2015/4/23】
Access开发平台--如何让审核过的记录不重复审核  【杜超  2016/4/11】
采购订单中若明细表单价太高,则不能审核,如何实现  【杜超  2016/7/11】
Access开发平台--编辑窗体中的审核按钮如何加权限  【杜超  2016/10/23】
Access快速开发平台--审核驳回示例  【MDZZ  2017/1/9】
Access多级审核与下推2.0版  【唐浪  2018/9/27】
常见问答
技术分类
相关资源
文章搜索
关于作者

欧志华

文章分类

文章存档

友情链接