MAX関数 ： Access

■ 構文
Max(expr)

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

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

■ 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