Access - MAX関数

Access MAX関数は、クエリで指定したフィールドの最大値を求める、SQL関数です。

Homeへ　

Access関数メニューへ

■ 構文
Max(expr)

expr ：テーブルのフィールド名、定数、関数を指定します

■ 戻り値
指定したフィールドの最大値が返ります。

■ Access実行画面

「顧客の最大来店回数を取得」、「商品の最大売上を取得」ボタンをクリックすると、それぞれの最大値を取得します。
最大回数・最大売上の取得ソフト

最大来店回数と最大売上が取得され表示されています。
最大データの取得結果

■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド0_Click()
Dim db As Database
Dim rs As Recordset
'SQLでレコードセット作成
Set rs = CurrentDb.OpenRecordset("SELECT Max(来店回数) AS _
最大来店回数, First(顧客名) AS 最大来店顧客名 _
FROM 顧客マスター")
If Not rs.EOF Then
'レコードの取得
Me!テキスト2 = rs("最大来店顧客名") _
& vbCrLf & rs("最大来店回数") & "回"
Else
Me!テキスト2 = "データが見つかりません"
End If
Set rs = Nothing
End Sub
Private Sub コマンド1_Click()
Dim db As Database
Dim rs As Recordset
'SQLでレコードセット作成
Set rs = CurrentDb.OpenRecordset("SELECT Max(売上) AS 最大売上, _
First(商品名) AS 最大売上商品名 FROM 商品マスター")
If Not rs.EOF Then
'レコードの取得
Me!テキスト4 = rs("最大売上商品名") & vbCrLf & rs("最大売上") & "円"
Else
Me!テキスト4 = "データが見つかりません"
End If
Set rs = Nothing
End Sub

MAX関数 ： Access