一个关于重复和必填检测函数
时 间: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群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 统计当月之前(不含当月)的记录...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)
- 【Access Dsum示例】...(02.07)
- Access对子窗体的数据进行...(02.05)
- 【Access高效办公】上月累...(01.09)
- 【Access高效办公】上月累...(01.06)
- 【Access Inputbo...(12.23)
- 【Access Dsum示例】...(12.16)

学习心得
最新文章
- 仓库管理实战课程(12)-月度结存...(04.16)
- 仓库管理实战课程(11)-人性化操...(04.15)
- 32位的Access软件转化为64...(04.12)
- 【Access高效办公】如何让vb...(04.11)
- 仓库管理实战课程(10)-入库功能...(04.08)
- Access快速开发平台--Fun...(04.07)
- 仓库管理实战课程(9)-开发往来单...(04.02)
- 仓库管理实战课程(8)-商品信息功...(04.01)
- 仓库管理实战课程(7)-链接表(03.31)
- 仓库管理实战课程(6)-创建查询(03.29)