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

增加后 可以防止误删除

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