Office中国论坛/Access中国论坛

标题: 各位老大这个问题如何解决 [打印本页]

作者: jeam 时间: 2006-8-8 23:17
标题: 各位老大这个问题如何解决
[attach]19567[/attach]
问题如图所示

作者: tz-chf 时间: 2006-8-8 23:55
在表中设唯一索引，就是系统提示难看一点。

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

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
怎么用代码实现取消

作者: andymark 时间: 2006-8-9 01:21
用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
Cancel=true

作者: tz-chf 时间: 2006-8-9 06:23
设两个主键作什么？

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

作者: 一点通 时间: 2006-8-9 06:56
dlookup

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