一个关于重复和必填检测函数
时 间: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
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)