一个关于重复和必填检测函数

时　间:2009-02-02 13:47:35
作　者:aodou51899   ID：17  城市：秦皇岛
摘　要:在表结构设计时，规定某些字段为必填项，某些字段不得重复，而用户操作时可能发生错误，产生冲突,此时,我们可以在窗体的错误事件中,引用此函数,进行提示,并限制相关操作.
正　文:

一个关于重复和必填检测函数
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