Access开发平台--新增记录时弹出窗口提示不能重复录入的另一种方法\用DCount函数判断数据不能重复录入；Access怎么限制字段输入重复项？

时　间:2009-07-30 00:00:00
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要:Access开发平台--新增记录时弹出窗口提示不能重复录入的另一种方法。
正　文:

      此示例适合学习access开发平台的学员使用,很多学员在用平台做新增窗体时候,会遇到这种情况,即新增了数据后点"保存"按钮,数据可以添加重复项,现想做一个窗口加以提示不能重复录入!

解决方法如下:(以报销管理系统里面的员工姓名新增为例)

第一:进入新增窗体的设计状态→进入代码编辑界面→在执行新增代码事件内找到Me.Refresh这句→在Me.Refresh后按回车键

第二:在鼠标光标处输入以下整个部分代码:

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

第三:保存并运行试试效果.

注：大家在开发自己软件过程中，也可以加以应用的，只需将代码中绿色部分改为自己软件的表名与字段名即可。