AccessのVBAでSQLのMIN関数を使い最小値を取得する|フォーム実行例

最小値を取得 : MIN関数

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

例: SQL = " SELECT MIN( 得点 ) AS 得点最小値 FROM スコア WHERE 性別 = '男' "
スコアテーブルの得点フィールドから最小値を取得します。

スポンサーリンク




BackHomeへ BackSQL Tipsへ

サンプルソフト
[実行時の画面]
「アクセス数 MIN」ボタンをクリックすると、アクセス数の最小値を取得し表示します。
下記のアクセステーブルの場合、481が最小ですので481が返っています。

■実行画面
最低アクセス数

[アクセス テーブル]
アクセスID   日付    アクセス数
102007/09/10   500
112007/09/11   481
132007/09/12   652
162007/09/13   503
日付別アクセス数

スポンサーリンク



[コード]
Option Compare Database

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

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

スポンサーリンク




BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft