Access开发平台--判断数值型数据不能重复录入的两种方法,数字型不能重复录入的代码

时　间:2012-12-05 08:52:46
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要:access开发平台--判断数值型数据不能重复录入的方法,数字型不能重复录入的代码
正　文:

前面我们学习过录入文本型数据可以不重复录入的方法，代码如下：

    If DCount("文本型字段名", "表名称", "文本型字段名='" & Me.文本型字段名 & "'") > 0 Then
         MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
         Me.文本型字段名.SetFocus
         Exit Sub
     End If

以及录入日期型数据可以不重复录入的方法，代码如下：
    Dim x As Variant
    x = DLookup("日期型字段名", "表名称", "日期型字段名= #" & Me.日期型字段名 & "#")

    If Not IsNull(x) Then
        MsgBox "你输入的日期已经存在，请重新输入", vbCritical, "警告"
        Me.日期型字段名.SetFocus
        Exit Sub

    End If

下面我们学习一下录入数值型(数字型)数据可以不重复录入的两种方法，代码如下：

测试的效果如下图：

注：大家在开发自己软件过程中,也可以加以应用的,只需将代码中绿色部分参数改为自己软件的表名与字段名即可！（不限于Access开发平台，可以在任意access程序里面使用。）