CheckTextLength 函数
简介
检查窗体上的所有设置了标记的输入控件，验证其文本长度是否超过了允许的最大长度，如果有则显示提示消息。
语法
CheckTextLength (DataEditForm[, MessageLabel] [, LengthMark])
输入参数
| 参数名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| DataEditForm | 必需 | Access.Form | 要进行文本长度检查的窗体对象。 |
| MessageLabel | 可选 | Access.Label | 将提示消息通过该标签控件显示，而不是消息框。 |
| LengthMark | 可选 | String | 检查标记，即控件的Tag属性中包含此标记时，将进行长度检查。如果省略此参数，则默认使用“ |
返回值
检查通过，即所有文本字段的长度都符合时，返回True，否则返回False。
说明
LengthMark使用非缺省值时，其中的 ? 号必须要有，因为它是一个占位符，表示一个数字，对应每个控件的对应的实际允许最大文本长度。如 LengthMark 参数是“<长度=?>”，某个文本框的Tag属性中的标记是“<长度=20>”,进行自动检查时就会判断该文本框中的文本长度是否大于 20 个字符。
通过标签控件显示提示信息时，仍然会发出对应消息框的声音。
如果检查到有为空的必填项，会自动将焦点移到该输入控件上（如果是组合框，还会自动展开下拉列表），然后提示消息。
提示信息中显示的输入项名称是从输入控件的绑定标签“标题”属性中取得并自动进行处理的（如去掉前面表示必填的 * 号，后面的冒号）。
应该先调用 CheckRequired 函数检查完必填项之后，再检查文本长度。
相关
示例
Private Sub btnSave_Click() If Not CheckRequired(Me) Then Exit Sub '有必填项为空时退出不再继续保存操作。 If Not CheckTextLength(Me) Then Exit Sub '如果有文本字段的长度超过最大长度，则退出过程不再继续保存操作。 '……其它保存代码 End Sub