输入型控件判断是否为空

时　间:2020-03-04 22:31:40
作　者:水果   ID：67235  城市：盘锦
摘　要:输入型控件判断是否为空。
正　文:

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 ctl
errorhandler_exit:
    Exit Function
errorhandler:
    Resume Next
End Function


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店