ACCESS如何在窗体输入数据时提示数值范围

在模块的函数中加一条显示代码即可，见红色的代码

Public Function xcgz(ByVal nl, ByVal xcg) As String
Dim dbs As Database  '定义引用数据库的变量。
Dim rst As DAO.Recordset '定义引用记录集的变量。
'使用DAO操作打开明细记录集
Dim sql1 As String
If Nz(nl) = 0 Then
 xcgz = ""
 Exit Function
End If
If Nz(xcg) = 0 Then
 xcgz = ""
 Exit Function
End If
Set dbs = CurrentDb()
sql1 = "select * from 正常值1 where " & nl & ">=年龄下限 and " & nl & "<年龄上限"
Set rst = dbs.OpenRecordset(sql1)   '设置记录集
If xcg >= rst("血常规下限") And xcg < rst("血常规上限") Then
 xcgz = "血常规正常"
Else
 xcgz = "血常规异常"
 MsgBox ("血常规输入可能不正确")
End If
End Function
Public Function ncgz(ByVal nl, ByVal ncg) As String
Dim dbs As Database  '定义引用数据库的变量。
Dim rst As DAO.Recordset '定义引用记录集的变量。
'使用DAO操作打开明细记录集
Dim sql1 As String
If Nz(nl) = 0 Then
 ncgz = ""
 Exit Function
End If
If Nz(ncg) = 0 Then
 ncgz = ""
 Exit Function
End If
Set dbs = CurrentDb()
sql1 = "select * from 正常值1 where " & nl & ">=年龄下限 and " & nl & "<年龄上限"
Set rst = dbs.OpenRecordset(sql1)   '设置记录集
If ncg >= rst("尿常规下限") And ncg < rst("尿常规上限") Then
 ncgz = "尿常规正常"
Else
 ncgz = "尿常规异常"
 MsgBox ("尿常规输入可能不正确")
End If
End Function