仅适用于此平台 http://www.umvsoft.com/products.asp?Id=142

点击下载此附件

删除代码修改下，就可以实现，审核过的不让删除

Public Sub btnDel()
    If 审核 = 0 Then
   
    If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
        DoCmd.Echo False
        Call AccHelp_DeleteFldstrRow("tblBxmx", "mxId", selectstr)
        Forms!usysfrmMain!frmChild.SourceObject = "frmBxmx_child"
        DoCmd.Echo True
 
    End If
    End If
End Sub