【Access基础】新增修改重复值的判断方法

时　间:2013-11-29 08:21:16
作　者:缪炜   ID：24010  城市：江阴
摘　要:新增修改重复值的判断方法
正　文:

平时我们在做开发时，一些数是不允许重复的，所以我们常会使用Dcount去做判断，但总是感觉有些不合理，比如在修改时，如果不能重复的字段未修改但还是提示不能重复，这是因为当前窗体的值去和表里的数据去做了对比，这样自然是不能实现我们的要求，所以我们就想一些方法来弥补他，比如小赵学员发的这篇文章，access开发平台--如何实现新增、修改时，弹出提示新增、修改记录不能重复数据的窗口http://www.accessoft.com/article-show.asp?id=8462  ，其实方法二就来的简单一点，先将表中的字段的索引改成有（不重复），然后写如下的出错代码：

 ……

……

……

ExitHere:
    Set rst = Nothing
    Exit Sub

ErrorHandler:
    Select Case Err
    Case 3022
        MsgBox "【XXX】字段已存在，不允许重复录入。", vbExclamation, "提示"
    Case Else
        MsgBox Err.Description, vbCritical, "错误 #" & Err
    End Select
    Resume ExitHere

原理很简单，就是当然表中字段的有不可以重复的索引，当在录入或者修改数时，Access本身会报错，我们这里只是让他换一个提示的方法，更加的友好。