一个关于重复和必填检测函数
Public Function gf_FormError(DataErr1 As Integer, Response1 As Integer)
'功能说明:在表结构设计时,规定某些字段为必填项,某些字段不得重复,而用户操作时可能发生错误,产生冲突
' 此时,我们可以在窗体的错误事件中,引用此函数,进行提示,并限制相关操作
'使用说明:在窗体的错误事件中引用
'使用示例: gf_FormError DataErr,response
'作者: 王三平
'日期:2009-1-13
'修改:
On Error GoTo Line_Exit
Const conDuplicateKey = 3022
Const conRequiredKey = 3314
Dim strMsg As String
If DataErr1 = conDuplicateKey Then
Response1 = acDataErrContinue
strMsg = "数据必须是唯一的," _
& "请重新输入数据。"
MsgBox strMsg, vbOKOnly, "警告"
End If
If DataErr1 = conRequiredKey Then
Response1 = acDataErrContinue
strMsg = "带*号为必填字段,不能为空!"
MsgBox strMsg, vbOKOnly, "警告"
End If
Line_Exit:
Exit Function
line_Error:
Resume Line_Exit
End Function