Access平台开发人员帮助 > 通用函数库 > 按功能 > 域聚合函数封装

函数说明

该函数可以根据条件，从表中找到对应字段的记录条数。

注意：该函数是对Access自身DCount函数的优化，用法和DCount一样，但速度更快。

函数原型

Public Function gf_DCount(strFldName As String, strTblName As String, Optional strFilter As String = " True ", Optional blnCodeProject As Boolean = False) As Variant

语法

gf_DCount(strFldName,strTblName[,strFilter][,blnCodeProject])

参考：gf_DCount("FName","tblTest","FID=5") '计算表tblTest，条件为FID=5，FName的记录数

参数

参数名	必需/可选	数据类型	参数说明
strFldName	必需	String	要查找的字段名
strTblName	必需	String	要查找的表名
strFilter	可选	String	条件（可不写，如果条件字段是文本型要加单引号）
blnCodeProject	可选	Boolean	是否为当前数据库，默认为False。这个涉及到数据库之间的引用，默认即可

返回值

返回查找到的记录条数。若找不到记录，则返回0。

示例

Sub subTest1()

Dim intValue As Integer ’定义一个字符串型变量，保存结果

strValue = Nz(gf_DCount("FName","tblTest","FID=5")) '查找tblTest 字段 FName的记录数，条件为 FID = 5

Msgbox "FID =5 , 记录数有 " & intValue '弹窗显示结果

End Sub

Sub subTest2()

Dim intValue As Integer ’定义一个字符串型变量，保存结果

'查找FID的记录数，条件为 FName=‘Tom’ 。因为FName是文本型，条件的值要加单引号

intValue = Nz(gf_DCount("FID","tblTest","FName=‘Tom’"))

Msgbox "FName =Tom , 记录数有 " & intValue '弹窗显示结果

End Sub

计数函数（gf_DCount函数）

计数函数（gf_DCount函数）