提供一个字段必填项函数

时　间:2009-02-02 13:48:39
作　者:aodou51899   ID：17  城市：秦皇岛
摘　要:我们开发的软件在实际应用中,有些字段是必须输入的.而用户可能会因为操作上的原因,发生漏输入的现象,这个函数可以控制用户必须输入合法数据.
正　文:

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