Accessで複数データ比較後、最大値を取得したい

Question

選択クエリで選択してきた「４つ」のフィールドの最大値をクエリ(IF関数)で求めたいのですが、やり方が分かりません。初心者で説明が足らず申し訳ないのですが、教えて頂けたら
幸いです。宜しくお願い致します。

現在、３つのフィールドについては比較しクリア出来ています。
項目：A、B、C　(項目には日時が情報が入ります。　yyyy/mm/dd HH:MM:SS)
最大値: IIF( A > B, IIF( A > C, A, C), IIF( B > C, B, C))

４つ（A、B、C、D）では、どのように関数を組めば良いでしょうか。

Answer 1

下記の式でどうでしょう。

最大値: Switch(A>B And A>C And A>D,A,B>C AND B>D,B,C>D,C,True, D)

フィールド数が増えてくると面倒な式になりますので、下記のような関数を標準モジュールに作成しておくいいでしょう。

Public Function GetMax(ParamArray A())
    Dim i As Long
    GetMax = Null
    For i = LBound(A) To UBound(A)
        If IsNull(GetMax) Or GetMax < A(i) Then
            GetMax = A(i)
        End If
    Next
End Function

クエリの式は下記ですみます。フィールド数が増えても引数を増やすだけです。

最大値: GetMax(A,B,C,D)

参考リンク
フィールド間（横方向）での集計関数 - hatena chips

原則的なことを言えば、横方向に集計するようなテーブル設計は見なおした方がいいでしょう。

Comments

[shim008]

hatena19様

上記、Switch文で比較し、最大のデータの取得が出来ました。
ありがとうございます。

合わせて、下の標準モジュールを用意して、GetMaxコマンドでも同様に最大値を取得出来ました。
文字数や、今後項目が増えることを想定して、下の標準モジュールを作成する方を活用したいと思います。
ご回答のほどありがとうございました。