会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛

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 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源,如果服务器暂不能下载请过一段时间重试!
☉如果遇到什么问题,请到本站论坛去咨寻,我们将在那里提供更多 、更好的资源!
☉本站提供的一些商业软件是供学习研究之用,如用于商业用途,请购买正版。

发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: