如果要根据用户的决定来更改运算的 criteria 参数,可以指定来自窗体上控件的条件。例如,可以指定来自“订单”表中含有订单日期的列表框控件的 criteria 参数。
若要指定来自窗体上控件的日期与时间条件,可以在 criteria 参数中包含引用该控件的表达式。该表达式应该和字符串表达式分开,这样 Microsoft Access 在执行相应运算之前将首先计算控件的表达式,并将它和字符串表达式的其余部分相连接。
除了要将整个字符串表达式括在双引号 (") 中以外,还必须确保字符串表达式中的日期或时间条件括在数字符号 (#) 中。数字符号必须位于引用窗体上控件的表达式两侧的字符串中。
注释 数字符号用于向 Microsoft Access 标明 criteria 参数在字符串中包含了日期或时间。
下面的示例根据来自窗体上名为“雇用日期”控件的条件来设置窗体的 Filter 或 ServerFilter 属性。注意数字符号的位置。
Forms!Employees.Filter = "[HireDate] >= #" _
& Forms!Employees!HireDate & "#"
Forms!Employees.FilterOn = True
– 或者 –
Forms!Employees.ServerFilter = "[HireDate] >= #" _
& Forms!Employees!HireDate & "#"
Forms!Employees.FilterOn = True
如果 HireDate 控件的当前值为 5-1-92,则“筛选”或“服务器筛选”属性将包含以下 criteria 参数:
"[HireDate] >= #5-1-92#"
也可以在 criteria 参数中包含代表日期或时间的变量。变量应该和字符串表达式分开。这样 Microsoft Access 将首先计算变量,然后再与字符串表达式的其余部分相连接。日期或时间条件必须括在数字符号中。
下面的示例显示如何构建一个 criteria 参数,该参数包含代表日期或时间的变量:
Dim datHireDate As Date
datHireDate = #5-1-92#
Forms!Employees.Filter = "[HireDate] >= #" _
& datHireDate & "#"