此示例适合学习access开发平台的学员使用,很多学员在用平台做新增窗体时候,会遇到这种情况,即新增两个或两个以上相同字段数据时,后点"保存"按钮,数据可以添加重复项,现想做一个窗口加以提示不能重复录入两个或两个以上字段相同的数据!
解决方法如下:
(以培训教程《变速箱管理系统》作业二里面的机型零件参数新增为例)
第一:进入该新增窗体的设计状态→进入ljid组合框属性→选"更新后"[事件过程]→点击后面的…进入代码编辑界面
第二:在鼠标光标处输入以下整个部分代码:
If dcount("*", "表名称", "字段1='" & Me.字段1 & "' and 字段2='" & Me.字段2 & "'") >0 Then
MsgBox "此数据已录入,请不要重复添加!"
Exit Sub
End If
第三:在这段的新增代码编辑区里面找 Dim rst As DAO.Recordset 语句,在此句代码后面按回车键
在回车处粘贴第二步里面的代码部分即可(此步骤是判断代码在"保存"按钮按下时起作用)
第四:保存并运行试试效果.
备 注:
大家在学会此技巧后开发自己软件过程中,也可以加以应用的,只需将代码中红色部分改为自己软件的表名与字段名即可!