任何对要进行删除的数据进行保护提示？

小张　发表于：2009-12-20 14:10:09 　

复制

老师。任何做到这样。

在对表（报销类别）进行删除操作。系统先进行对表（报销明细）进行查询。如表（报销明细）有该条（报销类别）数据。不能进行删除操作。

谢谢。

Top

樟树发表于：2009-12-21 21:19:34

看看这个，是不是你要的效果

点击下载此附件

Top

小张发表于：2009-12-22 16:12:52

老师，可能是我讲不清楚。我需要的是这样的效果，在平台的（删除）按钮的单击事件增加个判断。判断该要删除的数据在别的表里是否存在。并提示不能进行删除操作。

谢谢。

Top

金宇发表于：2009-12-22 22:18:34

If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
DoCmd.Echo False

        If IsNull(DLookup("ywshr", "tbl_fhtz", "fhtzid=" & selectID & "")) And DLookup("fdr", "tbl_fhtz", "fhtzid=" & selectID & "") = Forms!usysfrmLogin!txtUserName Then
            Call AccHelp_DeleteFldnumrow("tbl_fhtz", "fhtzid", selectID)
            Forms!usysfrmMain!frmChild.SourceObject = "frm_fhtz_child"
        Else
            MsgBox "您没有权限删除，或者单据已被审核！"
            Exit Sub
        End If
        DoCmd.Echo True
    End If

你可以参照这个,其中的变量selectID根据你实际情况的变量调整,如果是字符型的变量需要加单引号'"& selectID &"', AccHelp_DeleteFldnumrow改成AccHelp_DeleteFldStrrow

Top

一启软研发表于：2009-12-23 10:53:03

删除操作代码包含在以下代码中：

if DCount("[要查的表或查询的关键字段名]", "要查表或查询名","[字段名A]＝'" & me.控件 & "'")>0 then

msgbox "某表中有相关记录，不能删除。"

　 exit sub

else

删除操作

end if

Top

小张发表于：2009-12-23 14:46:59

谢谢老师。。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

[5分]任何对要进行删除的数据进行保护提示？