不能重复

小笨　发表于：2012-06-27 07:38:50 　

为什么在更新前事件加入后不能在别的字段输入，而是锁死窗体？

Private Sub gysmc_BeforeUpdate(Cancel As Integer)
    If DCount("*", "tblcode_gys", "gysmc='" & Me.gysmc & "' and gysid <>'" & Me.gysID & "'") > 0 Then
        MsgBox "你输入的数据已经存在，请重新输入!", vbCritical, "警告"
        Cancel = True
        Me!gysmc.Undo
        Exit Sub
    End If
End Sub

Top

张志[竹笛] 发表于：2012-06-27 09:32:15

放在更新后事件试一下。

Top

煮江品茶发表于：2012-06-27 09:40:59

Private Sub gysmc_BeforeUpdate(Cancel As Integer)
Cancel =DCount("*", "tblcode_gys", "gysmc='" & Me.gysmc & "' and gysid <>'" & Me.gysID & "'") > 0
End Sub

Top

小笨发表于：2012-06-27 20:02:46

二位老师好！还是一样的，只要在更新前加上这段代码就锁死窗体。

Top

小笨发表于：2012-06-27 20:38:59

放在更新后事件无意义，不能有效阻止字段重复输入。我的目的：在身份证号字段，当输入相同时提示并不能保存。

Top

小笨发表于：2012-06-27 21:19:47

已搞定：用Dlookup函数判断输入的数据是否重复

Private Sub 占用端口_BeforeUpdate(Cancel As Integer)

If (Not IsNull(DLookup("[用户ID]", _

"用户资料", "[占用端口] ='" _