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