确定Access VBA中的Max（）值

Question

我有一个Excel等式

=IF(AB9>=MAX($AB$11:$AB$1048576)-7,"Past 7 years","")

基本上，我发现如果我们想要在列中找到最大值，我们必须使用DMax()函数。

此代码不起作用，可能是由于maxval = DMax("IATA_FY", "Main_Database")。 IATA_FY是Main_Database查询中的一列。 iatafy与IATA_FY相同，将与maxval进行比较。

Function past7years(iatafy As String) As String

Dim maxval As Integer

maxval = DMax("IATA_FY", "Main_Database")


If iatafy >= maxval - 7 Then
    past7years = "Past 7 years"

    Else: past7years = ""

End If

End Function

Answer 1

你正在将一个字符串与一个整数进行比较 - iatafy应该是一个整数或其他数字类型不应该吗？

Function past7years(iatafy as Integer) As String应该修复它。

Answer 2

尝试将Dmax修改为以下，为我工作

maxval = DMax（“IATA_FY”，“Main_Database”，“”）