アクセスVBAの部屋

VBA Homeへ戻る

データ処理の関数を使う

関数を使ってデータを処理しよう

DMax 関数　特定フィールドの最大値を取得できます。

（書式）

DMax( expr, domain [, criteria] )
　（引数）
　expr　必須。値を返すフィールドを識別する式。
　domain　必須。 テーブル名などの定義域を識別する文字列式。
　criteria　省略可能です。 DMax 関数を実行するデータ範囲を制限するために使用される文字列式。WHERE という単語を含まない SQL 式の WHERE 句と同じです。

（使用例）

次のプロシージャは「販売台帳」テーブルから「商品コード」を指定して、その最大販売数量を求めます。

Function saidai()
　Dim shohin As String
　Dim suryo As Variant
　'求める商品を指定します。
　shohin = InputBox("商品コードを入力してください。")
　'対象商品の「数量」が代入されます。
　suryo = DMax("数量", "販売台帳", "商品コード ='" & shohin & "'")
　If IsNull(shohin) Then
　MsgBox (shohin & "は、見つかりませんでした。")
　'メッセージボックスに表示されます。
　Else
　MsgBox (shohin & "の最大数量は、" & suryo & "です。")
　End If
End Function

（実行結果）

商品コードの入力

結果のメッセージボックス

（この項終わり）