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

jeam

问题如图所示

一点通

dlookup

tz-chf

设两个主键作什么？

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

wuaza

Cancel=true

andymark

用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

jeam

怎么用代码实现取消

jeam

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

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

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

tz-chf

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