判断控件_输入型控件判断是否为空

Public Function gf_FieldisNull(ByVal rform As Form) As Boolean'功能说明:我们开发的软件在实际应用中,有些字段是必须输入的.而用户可能会因为操作上的原因,发生漏输入的现象'         这个函数可以控制用户必须输入合法数据.'使用说明:首先需要在窗体必输控件的"控件提示文本"属性中填入"必填",在"标记"属性中填写该控件的中文名'使用示例: gf_FieldIsNotNull Me'作者: 王三平，参考中国人提供的源代码,修改.'日期:2007-10-13'修改:2009-1-12 更正以下缺点'---1、由于在修改窗体中的字段名不是中文，所以提示信息出现的是字母，你可以取中文名字，来取得好的效果。'---2、如果窗体视图是数据表样式，则会出现错误提示，此功能完善。    On Error GoTo errorhandler    Dim ctl As Control    For Each ctl In rform.Controls        With ctl            If .ControlType = acTextBox _                or .ControlType = acComboBox _                or .ControlType = acListBox _                or .ControlType = acCheckBox _                or .ControlType = acOptionButton _                or .ControlType = OptionGroup _                Then            If ctl.ControlTipText = "必填" And IsNull(ctl) Then                FieldisNull = True                ctl.SetFocus                MsgBox "请录入[ " & ctl.Tag & " ]必填项! ", 64, "系统提示！"                Exit For            Else                FieldisNull = False            End If            End If        End With    Next ctlerrorhandler_exit:    Exit Functionerrorhandler:    Resume NextEnd Function

End 推荐阅读 Access训练营  从0基础开始，循序渐进，系统化的训练营课程，整合作业、课表、社群，为学员提供答疑，获得更佳的学习效果。【详情>> 】   快速开发财务管理系统  紧密结合职场的一个课程，参加培训不仅可提升开发技能，而且可获得案例源代码，立即投入到实际工作中应用。【详情>> 】   Access软件作品  十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>> 】   从Excel到Access数据库  为广大Excel用户了解、学习Access数据库开设的一个实用课程，侧重于数据统计分析。【详情>> 】   Access每天3分钟  视频课程共50集，Access的基础知识并结合示例详细讲解，每集视频只有短短几分钟，学员可以利用碎片化的时间，每天进步一点点【详情>> 】   张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】