关于通过编程ValidationRule设置有效性规则的用法

guoya

我在模块中编制了一个函数
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

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