Access交流网
电 话：0760-88315075
热 线：0760-88315075
邮 编：528463
咨询QQ：1918333016
营销QQ：4008553990
Email：1918333016@qq.com
解决方法如下:(以报销管理系统里面的员工姓名新增为例)
第一:进入新增窗体的设计状态→进入代码编辑界面→在执行新增代码事件内找到Me.Refresh这句→在Me.Refresh后按回车键
第二:在鼠标光标处输入以下整个部分代码:
If DCount("ygxm", "tblCodeyg", "ygxm='" & Me.ygxm & "'") > 0 Then
MsgBox "你输入的数据已经存在，请重新输入", vbCritical, "警告"
Me.ygxm.SetFocus
Exit Sub
End If
第三:保存并运行试试效果.
注:大家在开发自己软件过程中,也可以加以应用的,只需将代码中绿色部分改为自己软件的表名与字段名即可
