各位老大这个问题如何解决

jeam · 发表于 2006-8-8 23:17:00

问题如图所示

tz-chf · 发表于 2006-8-8 23:55:00

在表中设唯一索引，就是系统提示难看一点。

jeam · 发表于 2006-8-9 01:08:00

我根据其他开发者的要求，设立了序号和指标名称两个主键，不能改的，有没有用代码的方法？我现在已经解决了前面两项，就是最后的撤销不知道怎么作

Private Sub targ_name_BeforeUpdate(Cancel As Integer)

If DLookup("targ_name", "dbo_stat_basic", "targ_name='" & Trim(targ_name) & "'") <> "" And Not IsNull(DLookup("targ_name", "dbo_stat_basic", "targ_name='" & Trim(targ_name) & "'")) Then
MsgBox "记录已经存在，操作取消！", vbOKOnly, "系统提示"
End If

End Sub

这样，如果重复，会有对话框弹出，但是，怎么用代码实现？

jeam · 发表于 2006-8-9 01:09:00

怎么用代码实现取消

andymark · 发表于 2006-8-9 01:21:00

用not isnull

If not isnull(DLookup("targ_name", "dbo_stat_basic", "targ_name='" & Trim(targ_name) & "'") <> "" And Not IsNull(DLookup("targ_name", "dbo_stat_basic", "targ_name='" & Trim(targ_name) & "'"))) Then
MsgBox "记录已经存在，操作取消！", vbOKOnly, "系统提示"
End If

wuaza · 发表于 2006-8-9 03:29:00

Cancel=true

tz-chf · 发表于 2006-8-9 06:23:00

设两个主键作什么？

不管怎样，还是要用户修改“指标名称”或按“Esc”键取消输入。所以应在msgbox中提示操作方法。

一点通 · 发表于 2006-8-9 06:56:00

dlookup

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 各位老大这个问题如何解决

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)