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

函数说明

该函数可以根据条件，从表中找到对应字段的所有记录中最后一条记录的值。

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

函数原型

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

语法

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

参考：gf_DMax("FName","tblTest","FID=5") '查找表tblTest，条件为FID=5，FName的最大值

参数

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

返回值

返回查找到的值。若找不到值，则返回null。

示例

Sub subTest1()

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

strValue = Nz(gf_DMax("FName","tblTest","FID=5")) '查找tblTest 字段 FName的最大值，条件为 FID = 5

Msgbox "FID =5 , FName 最大值是" & strValue '弹窗显示结果

End Sub

Sub subTest2()

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

'查找tblTest 字段 FID的最大值，条件为 FName=‘Tom’ 。因为FName是文本型，条件的值要加单引号

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

Msgbox "FName =Tom , FName 最大值是 " & intValue '弹窗显示结果

End Sub

返回最大值（gf_DMax函数）

返回最大值（gf_DMax函数）