使用 SetFieldValidation 函数设置字段有效性规则

时　间:2022-04-09 10:06:47
作　者:杨雪   ID：42182  城市：南京
摘　要:下面的示例为某个字段创建了一个有效性规则，只允许输入大于 65 的数值。
正　文:

      如果输入了一个小于 65 的数字，将显示一条消息。 这些属性是使用 SetFieldValidation 函数设置的 。

图   例：

源   码：

Function SetFieldValidation(strTblName As String, _
 strFldName As String, strValidRule As String, _
 strValidText As String) As Integer
 
 Dim dbs As Database, tdf As TableDef, fld As Field
 
 Set dbs = CurrentDb
 Set tdf = dbs.TableDefs(strTblName)
 Set fld = tdf.Fields(strFldName)
 fld.ValidationRule = strValidRule
 fld.ValidationText = strValidText
End Function


Private Sub Command4_Click()
Dim strTblName As String, strFldName As String
Dim strValidRule As String
Dim strValidText As String, intX As Integer
 
strTblName = "Customers"
strFldName = "Age"
strValidRule = ">= 65"
strValidText = "请输入大于等于65的数字."
intX = SetFieldValidation(strTblName, strFldName, _
 strValidRule, strValidText)
End Sub