一个关于重复和必填检测函数
时 间: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)
- 【Access高效办公】统计当...(06.30)
- 【Access高效办公】用复选...(06.24)
- 根据变化的日期来自动编号的示例...(06.20)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 【Access高效办公】统计当...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)

学习心得
最新文章
- Access设置试用期截止日期默认...(08.15)
- Access快速开发平台--Err...(08.12)
- Deepseek资料整理神器(08.11)
- 【Access财务分析示例】按月统...(08.08)
- Access查询里使用Date()...(08.05)
- 关于Access交叉表查询生成的统...(08.02)
- ACCESS做的工作日常小工具_纸...(07.30)
- Access快速开发平台进销存教程...(07.28)
- 关于Access快速开发平台2.6...(07.23)
- 【Access交叉表查询】按百分比...(07.21)