求取多列数据的最大值和最小值

代码可以这样。

Function eMax()
    Dim rs     As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim sqlstr As String
    sqlstr = "SELECT * FROM 表1"
    rs.Open sqlstr, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.MoveFirst
    Dim i, j   As Integer
    For i = 1 To rs.RecordCount
        eMax = Abs(rs(1))
        For j = 2 To 3 '这里是你的字段数
            If eMax < Abs(rs(j)) Then eMax = Abs(rs(j))
        Next j
        Dim mystr As String
        mystr = "update 表1 set e绝对值最大值=" & eMax & " where 编号=" & i
        DoCmd.RunSQL mystr
        rs.MoveNext
    Next i

    rs.Close
    Set rs = Nothing

End Function

同理可作一个求绝对值最小值的函数