Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access开发平台

Access开发平台--判断日期型数据不能重复录入的两种方法

时 间:2012-12-04 08:27:29
作 者:麥田   ID:11  城市:上海  QQ:3002789054点击这里给麥田发消息
摘 要:access开发平台--判断日期型数据不能重复录入的方法
正 文:

我们知道在录入文本型数据可以不重复录入的方法,代码如下:

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


学员 厦门--七夜 问: 

能不能对日期型数据的录入进行重复判断,即重复的日期不能再次录入,上面代码改了不能实现,有其他方法吗?

  ‘方法1:录入日期型格式的数据不能重复,使用DCount函数的解决方法如下:


    If DCount("日期字段名", "表名称", "日期字段名= #" & Me.日期字段名 & "#") > 0 Then
         MsgBox "你输入的日期已经相同,请重新输入", vbCritical, "警告"
         Me.日期字段名.SetFocus
         Exit Sub
     End If

 

  ’方法2:以上代码保存并运行试试效果.下面在介绍一种使用Dlookup函数的方法,效率会高一些:
 
    Dim x As Variant
    x = DLookup("日期字段名", "表名称", "日期字段名= #" & Me.日期字段名 & "#")

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

    End If


效果如下图:

 

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



Access快速开发平台QQ群 (群号:321554481)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助