求解，学习教程的示例数据库里零件id不能重复的代码看不明白

恐龙的传人　发表于：2013-04-20 13:04:31 　

第一部分VBA基础培训教程\《[VBA中级05]多用户同时录入数据时防止编号冲突》里，

示例数据库的tblCgmx_temp_Add窗体里ljid文本框的更新事件的这一段不能理解。

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Const conDuplicateKey = 3022
Dim strMsg As String

If DataErr = conDuplicateKey Then
Response = acDataErrContinue
strMsg = "零件不允许重复，" _
& "请重新选择零件！"
Me.ljid.SetFocus
MsgBox strMsg, vbCritical, "提示"
End If

End Sub

这段标**背景的代码不能理解，求解。

Top

杜超-2号发表于：2013-04-20 13:13:32

3022为字段重复的错误号，当事件遇到3022出错，则停止事件，弹出提示框

Top

殷小宝发表于：2013-04-20 16:15:59

acDataErrContinue 不为用户显示默认的消息。假如要为用户显示自定义消息时，可以使用它。例如，事件过程能显示一个自定义对话框以询问用户是否要保存新的输入项。假如回答为 Yes，事件过程将新的输入项添加到列表中，并将 Response 参数设置为 acDataErrAdded。假如回答是 No，事件过程将 Response 参数设置为 acDataErrContinue。

总之，acDataErrContinue 有两层含义：一个是自定义消息，如上面的Msgbox，一个不填入数据。

Top

恐龙的传人发表于：2013-04-20 17:25:07

大概明白意思了，在微软网页上也找到相关示例了： http://technet.microsoft.com/zh-cn/library/ff836345.aspx

但是还有一点想不明白，这段代码没有应用在零件id的字段上，而是用在窗体错误事件上，ACCESS是如何判断出零件id不能重复，而非零件数量不能重复呢？

Top

恐龙的传人发表于：2013-04-20 17:30:17

哦，想明白了，连在零件id更新事件后写上的，其他字段内没有事件代码。

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

[5分]求解，学习教程的示例数据库里零件id不能重复的代码看不明白