Office中国论坛/Access中国论坛

标题: 表中已有记录为什么还能删除？ [打印本页]

作者: fxcxg 时间: 2006-2-19 21:30
标题: 表中已有记录为什么还能删除？
在设置中，表中已有记录为什么还能删除？

先谢！！！[attach]15910[/attach]

作者: fan0217 时间: 2006-2-19 21:43
不太明白你的问题，删除是指删除什么呢？

作者: fxcxg 时间: 2006-2-19 22:16
〔科室设置〕中删除按钮事件，如果jkzb表已有记录不能删除。可还是能删除，我的意思jkzb表已有记录，提示不能删除。

谢谢！！

作者: fxcxg 时间: 2006-2-19 22:25
标题: 在问
〔科室设置〕中删除按钮事件，如果jkzb表已有记录不能删除。可还是能删除，我的意思jkzb表已有记录，提示不能删除。

谢谢！！

作者: 一点通 时间: 2006-2-20 00:31
更改一下试试

If MsgBox("请确定是否删除该科室？", 4 + 32, "证件发放管理") = 6 Then
If Not IsNull(DLookup("[科室代码]", "jkzb", "[科室代码] = Forms!科室设置!dm")) Then
MsgBox "该科室已经使用不能删除！", vbInformation, "证件发放管理"
Else
DoCmd.RunSQL "DELETE 科室.* from 科室 WHERE 代码 = forms!科室设置!dm;"
kssz.RowSource = "SELECT [科室].[代码], [科室].[科室] FROM 科室; "
Me!dm = ""
Me!ks = ""
save.Enabled = False
End If
Else
End If

作者: fxcxg 时间: 2006-2-20 22:10
谢谢一点通版主！！！

成功！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)