Access VBA教程:DMax方法

使用 DMax函数可以确定特定记录集(一个域)中的最大值。可以在 Visual Basic、宏、查询表达式或计算控件中使用 DMax函数。Variant 型。

expression.DMax(Expr, Domain, Criteria)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

Expr  必需 String 型。用于标识要为其查找最小值和最大值的字段的表达式。可以是用来标识表或查询中字段的字符串表达式,也可以是执行字段中数据计算的表达式。在 expr 中,可以包含表字段的名称、窗体上的控件、常量或函数。如果 expr 包括函数,则函数可以是内置的,也可以是用户自定义的,但不能是另一个域聚合函数或 SQL 聚合函数。

Domain  必需 String 型。字符串表达式,用于标识组成域的记录集。可以是一个表名称或查询名称。

Criteria  可选 Variant 型。可选的字符串表达式,用于限制 DMax函数执行的数据范围。例如,criteria 通常等价于 SQL 表达式中的 WHERE 子句,只是不含 WHERE 关键字。如果省略 criteria,DMax函数将在整个域计算 expr。任何包含在 criteria 中的字段必须同时也是 domain 中的字段,否则 Dmax函数将返回Null。

说明

DMax 返回满足 criteria 的最大值。如果 expr 标识的是数值数据,则 DMax函数返回数值;如果 expr 标识的是字符串数据,则返回按字母顺序排列的第一个或最后一个字符串。

DMax函数将忽略 expr 引用的字段中的 Null 值。但是,如果没有记录满足 criteria,或者 domain 中不包含记录,则 DMax函数返回 Null。

当在宏、模块、查询表达式或计算控件中使用 DMax函数,必须仔细构造 criteria 参数,以确保能够正确地进行计算。

在查询的“条件”行、查询的计算字段表达式中或更新查询的“更新到”行中,均可用 DMax函数指定条件。

注意   在总计查询中的计算字段表达式中,可以使用 DMax函数或 Max函数。如果使用 DMax函数,是先求值后对数据进行分组;如果使用 Max函数,则是先进行分组而后再计算字段表达式中的值。

当需要指定条件来限制函数执行的数据范围时,可以在计算控件中使用 DMax函数。例如,若要显示运到“加州”的订单的最高运费,应将文本框的ControlSource属性设为下列表达式:


=DMax("[Freight]", "Orders", "[ShipRegion] = 'CA'")

如果只是想查找 domain 中所有记录的最大值,可使用 Max函数。

如果要显示的字段不在窗体所基于的记录源中,则可在模块、宏或窗体上的计算控件中使用 DMax函数。

提示   虽然可以使用 DMax函数来查找外部表中字段的最大值。但更有效的方法是创建含有这两个表中所有所需字段的查询,然后以这个查询为基础创建窗体或报表。

注意   使用该函数时,对 domain 中记录所做的未保存更改将不包括在内。如果要让 DMax函数基于更改后的值,必须先保存更改,方法是:单击“文件”菜单上的“保存记录”,将焦点移到另一个控件上,或者使用Update 方法。

VBA示例

下面的示例返回运往英国的订单的“运费”字段的最大值。域为“订单”表。criteria参数将记录集的结果限制为“货主国家/地区”等于 UK 的记录。


Dim curX As Currency, curY As Currency
curY = DMax("[Freight]", "Orders", "[ShipCountry] = 'UK'")

在下一示例中,criteria参数将包含名为“订购日期”的文本框的当前值。该文本框与“订单”表中的“订购日期”字段绑定在一起。请注意,对控件的引用不要包括在标识字符串的双引号 (") 中。这样可以确保每次调用 DMax函数时,Microsoft Access 都从控件中获得当前值。


Dim curX As Currency
curX = DMax("[Freight]", "Orders", "[OrderDate] = #" _
    & Forms!Orders!OrderDate & "#")

上页:Access VBA教程:DLookup方法 下页:Access VBA教程:DMin方法

Access VBA教程:DMax方法

Access VBA教程:DMin方法 Access VBA教程:Dropdown方法
Access VBA教程:DStDev方法 Access VBA教程:DStDevP方法
Access VBA教程:DSum方法 Access VBA教程:DVar方法
Access VBA教程:DVarP方法 Access VBA教程:Echo方法
Access VBA教程:Eval方法 Access VBA教程:ExportXML方法
Access VBA教程:Find方法 Access VBA教程:FirstPage、LastPage、NextPage、PreviousPage方法 (Snapshot Viewer)
Access VBA教程:Follow方法 Access VBA教程:FollowHyperlink方法
Access VBA教程:GetHiddenAttribute方法 Access VBA教程:GetOption方法
Access VBA教程:GoToPage方法 Access VBA教程:GUIDFromString方法
Access VBA教程:HyperlinkPart方法 Access VBA教程:ImportXML方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号