审核功能示例

时　间:2011-04-02 13:26:37
作　者:风行   ID：16058  城市：江阴
摘　要:审核功能，在报销明细里查看。
正　文:

      仅适用于此平台 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