心得/经验/绝招
Access开发平台--新增记录时弹出窗口提示不能重复录入的另一种方
2009-07-30 08:47:39
解决方法如下:(以报销管理系统里面的员工姓名新增为例)
第一:进入新增窗体的设计状态→进入代码编辑界面→在执行新增代码事件内找到Me.Refresh这句→在Me.Refresh后按回车键
第二:在鼠标光标处输入以下整个部分代码:
If DCount("ygxm", "tblCodeyg", "ygxm='" & Me.ygxm & "'") > 0 Then MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告" Me.ygxm.SetFocus Exit Sub End If
第三:保存并运行试试效果.
注:大家在开发自己软件过程中,也可以加以应用的,只需将代码中绿色部分改为自己软件的表名与字段名即可