使用Dcount函数可以确定特定记录集(一个)中的记录数。可以在 Visual Basic、、查询表达式，或中使用DCount函数。

例如，可以在模块中使用Dcount函数，以返回“订单”表中对应于特定日期的订单数。

DCount(expr,domain, [criteria])

DCount函数具有下列参数：

参数

说明

expr

一个表达式，代表要统计其记录数的字段。可以是标识表或查询中字段的，也可以是对该字段上的数据进行计算的表达式。在 expr 中可以包括表中字段的名称、窗体上的控件、常量或函数。如果 expr 包括函数，它既可以是内置的，也可以是用户定义的，但不能是另一个域聚合函数或 SQL 聚合函数。

domain

字符串表达式，代表组成域的记录集。可以是表名称或不需要参数的查询名称。

criteria

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

说明

在不需要知道记录特定值的时候，可以使用DCount函数来计算域中的记录数。虽然 expr 参数可以对字段执行计算，但DCount函数只返回记录数。任何由 expr 执行计算所得的值都是不可用的。

当需指定条件来限制函数执行的数据范围时，应在计算控件中使用DCount函数。例如，要显示运往 California 的订单数，可将文本框的ControlSource属性设为如下表达式：

=DCount("[OrderID]", "Orders", "[ShipRegion] = 'CA'")

如果只是统计 domain 中的所有记录而不指定任何限制，则可以使用Count函数。

CountCountDCountDCount

使用DCount函数可以计算包含特定字段的记录数，该字段不在窗体或报表所基于的记录源中。例如，在基于“产品”表的窗体中，其计算控件中可以显示“订单”表中的订单数。

DCount函数在计数记录时，不包括由 expr 引用的字段中含有Null值的记录，除非 expr 参数为星号(*)通配符。如果使用了星号，DCount函数将计算所有记录的总数，包括含有Null字段的记录。下面的示例将计算“Orders”表中的记录数。

intX = DCount("*", "Orders")

如果 domain 是一个包含的表，也可以将 expr 设为主键字段来计算总记录数，因为主键字段不可能为Null。

如果 expr 指定多个字段，应使用连接运算符分隔各字段名，即和字符(&)或加号运算符(+)。如果使用(&)分隔字段，Dcount函数将返回在列出的任一字段中含有数据的记录数。如果使用加号运算符，Dcount函数将只返回在所有列出字段中都含有数据的记录数。下面的示例说明了使用这两种运算符的结果，它们连接所有记录中均包含数据的字段(ShipName)和不包含数据的字段(ShipRegion)。

intW = DCount("[ShipName]", "Orders")

intX = DCount("[ShipRegion]", "Orders")

intY = DCount("[ShipName] + [ShipRegion]", "Orders")

intZ = DCount("[ShipName] & [ShipRegion]", "Orders")

注释和字符(&)在执行字符串连接时是首选的运算符。在除加法以外的其他情况下，应尽量避免使用加法运算符，除非特地需要在表达式中产生Null值。

使用该函数时，domain 中未保存更改的记录将不包括在内。如果要让DCount函数以更改后的数据为基础，必须先保存更改。方法是单击“记录”菜单上的“保存记录”，或是将焦点移动到另一个控件，或使用Update方法。

示例

下面的函数返回在发货日期之后发送到指定国家/地区的订单数量。域为“Orders”表。

Public Function OrdersCount(ByVal strCountry As String, _

ByVal dteShipDate As Date) As Integer

OrdersCount =DCount("[ShippedDate]", "Orders", _

"[ShipCountry] = '" & strCountry & _

"' AND [ShippedDate] > #" & dteShipDate & "#")

End Function

若要调用该函数，请在“立即”窗口中使用下列代码：

:OrdersCount "UK", #1/1/96#