SQL MAX関数で最大値を取得する

SQL = " SELECT MAX(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
指定フィールドの最大値を返します。

例: SQL = " SELECT MAX( 国語 ) AS 国語点数 FROM 成績表 WHERE 組 = 3 "
成績表テーブルの3組から国語フィールドの最大値を取得します。

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    SQL = "SELECT MAX(アクセス数) AS アクセス最大数 FROM アクセス"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = rs![アクセス最大数]
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード