Access保存数据提示必填字段
时间：2013-10-28 16:55 来源：Office中国 作者：wsl 阅读：次
软件类型：国产软件
授权方式：免费软件
界面语言：简体中文
软件大小：17kB
文件类型：.rar
运行环境：Win2003,WinXP,Win7,win8
软件等级：★★★★☆
发布时间：2013-10-28
插件情况：
下载次数：
下载次数：
软件介绍：
在我们用窗体录入数据的时候，经常会设置窗体中有些数据不能为空，如学生资料（姓名），有些数据可以为空的情况。
当保存的时候，需要判断不能为空的控件是否为空值，当控件为空时控件获得焦点并提示用户输入数据。
这样的功能并不难，但是当一个系统中数据录入窗体比较多的话，就必须逐个去判断，工作量就大了
当保存的时候，需要判断不能为空的控件是否为空值，当控件为空时控件获得焦点并提示用户输入数据。
这样的功能并不难，但是当一个系统中数据录入窗体比较多的话，就必须逐个去判断，工作量就大了
下面的示例通过一个自定义的函数，简单点实现了保存数据时提示为必填字段
Function funIsNull(ByVal frmFm As Form, ByVal strControls As String) As Integer
Dim i As Byte
Dim A As Byte
Dim ctl As Control
A = UBound(Split(strControls, ","))
For i = 0 To A
For Each ctl In frmFm.Controls
If IsNull(ctl) And ctl.ControlName = Split(strControls, ",")(i) Then
MsgBox ctl.ControlName & "为空，请输入" & ctl.ControlName & "！", vbExclamation, "提示"
ctl.SetFocus
funIsNull = True
Exit Function
End If
Next ctl
Next i
End Function
顶一下
(2)
100%
踩一下
(0)
0%
下载地址：
注意事项：
☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。
相关软件
最新软件
推荐软件