CheckRequired 函数

根据控件标签属性(Tag)中的标记字串，验证数据编辑窗体中的必填项是否为空，并自动提示。

语法

CheckRequired(DataEditObject[, IgnoreDisabledControl][, MessageLabel][, RequiredMark][, IgnoreInvisibleControl])

输入参数

参数名称	必需/可选	数据类型	说明
DataEditObject	必需	Object	窗体或子窗体控件对象。
IgnoreDisabledControl	可选	Boolean	忽略“可用”属性为“否”的控件。
MessageLabel	可选	Label	用来显示消息的标签控件。缺省时使用消息框显示消息。
RequiredMark	可选	String	必填项控件在 Tag 中设置的标记字串。缺省时默认使用<Required>
IgnoreInvisibleControl	可选	Boolean	忽略“可见性”属性为“否”的控件。（v2.6.4.539 添加）

返回值

所有必填项都不为空时返回True，否则返回False。

说明

注意：Tag属性在 <2010 版本的 Access 中称为“标记”，>=2010 版本的 Access 中称为“标签”。

只有当控件是“可见+启用”状态的才进行判断，其中控件是否启用使用IsTrueEnabled函数判断，其中控件是否可见使用IsTrueVisible函数判断。

当窗体的标签属性(Tag)设置了 RequiredMark 标志 + 窗体数据源不为空 + 至少一个绑定控件时，会从第一条记录开始循环检查每条记录进行数据检验。

通过标签控件显示提示信息时，仍然会发出对应消息框的声音。

如果检查到有为空的必填项，会自动将焦点移到该输入控件上（如果是组合框，还会自动展开下拉列表），然后提示消息。

提示信息中显示的字段名通用 GetControlCaption 函数取得，具体规则请查看该函数的说明。

相关

HasBoundControl 函数

IsTrueVisible 函数

IsTrueEnabled 函数

IsTrueUnlocked 函数

GetLocalControlName 函数

SetRequiredStatus 函数

CheckTextLength 函数

示例

Private Sub btnSave_Click()
  If Not CheckRequired(Me) Then Exit Sub    '有必填项为空时退出不再继续保存操作。
  If Not CheckTextLength(Me) Then Exit Sub   '如果有文本字段的长度超过最大长度，则退出过程不再继续保存操作。
  '……其它保存代码
End Sub

修订记录

2021-09-24 v2.6.3.517 调整判断逻辑。

2021-10-28 v2.6.4.539 增加 IgnoreInvisibleControl 参数。