Access VBA教程:DMin方法

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

expression.DMin(Expr, Domain, Criteria)

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

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

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

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

说明

例如,可以在报表上的计算控件中使用 DMin函数来显示一个特定客户最大和最小订单量。也可以在查询表达式中使用 DMin函数显示折扣大于最小可能折扣的所有订单。

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

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

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

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

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

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


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

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

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

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

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

VBA示例

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


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

在下一个示例中,条件表达式中包含一个变量dteOrderDate。请注意,数字符号(#)包括在字符串表达式中,这样在字符串连接时这种符号会将日期括起来。


Dim dteOrderDate As Date, curX As Currency
dteOrderDate = #3/30/95#
curX = DMin("[Freight]", "Orders", _
    "[OrderDate] = #" & dteOrderDate & "#")

上页:Access VBA教程:DMax方法 下页:Access VBA教程:Dropdown方法

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方法 Access VBA教程:InsertLines方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号