如果输入了一个小于 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