access如何使录入数据重复时会提示数据是否录入,点是录入,否不录入,谢谢
1个回答
展开全部
在表中直接录入的话不能达到你的要求,只有在窗体中录入才可以!
下面以【学生信息表】中的【姓名】字段为例进行说明:
在【姓名】字段【失去焦点】事件中写入判断是否有姓名重复代码。
有重复则弹出询问框,是否继续?
回答【否】则清除姓名框,并且把焦点返回姓名等待重新输入。。
Private Sub 姓名_LostFocus()
If DCount("姓名", "学生信息表", "姓名='" & 姓名 & "'") > 0 Then
If MsgBox("您录入的姓名重复!是否继续?", vbYesNo) = vbNo Then
Me.姓名.Value = "" '清除姓名控件内的内容
Me.学号.SetFocus '为把焦点返回姓名控件做准备
Me.姓名.SetFocus '焦点返回姓名,等待重新输入
End If
End If
End Sub
下面以【学生信息表】中的【姓名】字段为例进行说明:
在【姓名】字段【失去焦点】事件中写入判断是否有姓名重复代码。
有重复则弹出询问框,是否继续?
回答【否】则清除姓名框,并且把焦点返回姓名等待重新输入。。
Private Sub 姓名_LostFocus()
If DCount("姓名", "学生信息表", "姓名='" & 姓名 & "'") > 0 Then
If MsgBox("您录入的姓名重复!是否继续?", vbYesNo) = vbNo Then
Me.姓名.Value = "" '清除姓名控件内的内容
Me.学号.SetFocus '为把焦点返回姓名控件做准备
Me.姓名.SetFocus '焦点返回姓名,等待重新输入
End If
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询