Office中国论坛/Access中国论坛

标题: 关于通过编程ValidationRule设置有效性规则的用法 [打印本页]

作者: guoya 时间: 2004-2-15 22:07
标题: 关于通过编程ValidationRule设置有效性规则的用法
我在模块中编制了一个函数
Public Sub SetFieldValidation(frm As Form, _
strContrName As String, strValidRule As String, _
strValidText As String)

Dim contr As Control
Set contr = frm.Controls(strContrName)
contr.ValidationRule = strValidRule
contr.ValidationText = strValidText
End Sub
然后在窗体的form_load中引用
Call SetFieldValidation(Me, "ID", "<500", "对不起,你只能输入500条记录")

问题是ID是一个自动编号字段，设置的有效性规则不能起作用，请问如何针对自动编号字段进行编程设定有效性规则[em25]

作者: zhengjialon 时间: 2004-2-16 17:21
自动编号是系统自动产生的，当然不能对它进行有效性规则限定了，因为它本身就不充许用户输入，可以在窗体更新前的事件过程中判断如果ID>500 就CANCEL=-1 取消更新，并用MSGBOX 提示。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)