Access培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:AccessoftChu    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

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

时 间: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
    '已上是添加代码部分-------------



Access快速开发平台QQ群 (群号:239158550)       access源码网店

最新评论 查看更多评论(1)

2019/7/30 20:48:39丁先生
太实用了,顶!

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助