Access VBA教程:来自窗体上控件的数值条件

如果要根据用户的决定来更改运算的 criteria参数,可以指定来自窗体上控件的条件。例如,可以指定来自于含有“雇员ID”的文本框控件的 criteria参数。

若要指定来自窗体上控件的数值条件,可以在 criteria参数中包含引用该控件的表达式。该控件表达式应该和字符串表达式分开,这样 Microsoft Access 在执行相应运算之前将首先计算控件表达式,并将它和字符串表达式的其余部分相连接。

假设要在“雇员”表上执行 DLookUp函数,根据“雇员ID”来查找雇员的姓名。在下面的示例中,条件由“订单”窗体上“雇员ID”控件的当前值来决定。引用控件的表达式在每次调用函数时都进行计算,这样如果控件的值更改,条件参数将反映出所作的更改。


=DLookup("[LastName]", "Employees", "[EmployeeID] = " _
    & Forms!Orders!EmployeeID)

如果“雇员ID”字段的当前值是 7,则赋值给 DLookUp函数的 criteria参数为:


"[EmployeeID] = 7"

提示   若要解决 criteria参数中表达式的错误,最好将表达式拆分为较小的组件,并在“立即”窗口中逐个测试。当所有的组件都能正常工作时,再将它们组合在一起,直到整个表达式能够正常工作为止。

也可以在 criteria参数中包含代表数值的变量。变量应该和字符串表达式分开,这样 Microsoft Access 将首先计算该变量,然后再与字符串表达式的其余部分相连接。

下面的示例显示如何构建一个包含变量的 criteria参数:


Dim intNum As Integer
Dim varResult As Variant
intNum = 7
varResult = DLookup("[LastName]", "Employees", _
    "[EmployeeID] = " & intNum)

上页:Access VBA教程:条件表达式中的多个字段 下页:Access VBA教程:数值条件表达式

Access VBA教程:来自窗体上控件的数值条件

Access VBA教程:数值条件表达式 Access VBA教程:来自窗体上控件的文本条件
Access VBA教程:文本条件表达式 Access VBA教程:创建包含变量和控件的 SQL 语句
Access VBA教程:字符串中的引号 Access VBA教程:域聚合函数
Access VBA教程:在 Microsoft Access 2002 中使用 ActiveX 数据对象 Access VBA教程:AboutBox方法(快照查看器)
Access VBA教程:AccessError方法 Access VBA教程:AddMenu方法
Access VBA教程:ApplyFilter方法 Access VBA教程:Beep方法
Access VBA教程:CancelEvent方法 Access VBA教程:Close方法
Access VBA教程:CopyObject方法 Access VBA教程:DeleteObject方法
Access VBA教程:DoMenuItem方法 Access VBA教程:FindNext方法
Access VBA教程:FindRecord方法 Access VBA教程:GoToControl方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号