| スポンサードリンク |
SQL = " SELECT MAX(フィールド名) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
指定フィールドの最大値を返します。
例: SQL = " SELECT MAX( 国語 ) AS 国語点数 FROM 成績表 WHERE 組 = 3 "
成績表テーブルの3組から国語フィールドの最大値を取得します。
|
|
サンプルソフト
［実行時の画面］
「アクセス数 MAX」ボタンをクリックすると、アクセス数の最大値を取得し表示します。
下記のアクセステーブルの場合、652が最大ですので652が返っています。
■実行画面
［アクセス テーブル］
アクセスID 日付 アクセス数
10 2007/09/10 500
11 2007/09/11 481
13 2007/09/12 652
16 2007/09/13 503
［コード］
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
|
|
ダウンロード