ACCESSにてフィールド間の最小値を表示するためのモジュール

ACCESS初心者です。

　　　A商店価格｜B商店価格｜C商店価格
バナナ｜　120　｜　150　｜　130　｜
メロン｜　450　｜　410　｜　420　｜
すいか｜　340　｜　320　｜　370　｜

このようなﾃｰﾌﾞﾙがあります。
このテーブルの右側にクエリを使って各商品の最小値を反映したいと思っております。

　　　A商店価格｜B商店価格｜C商店価格
バナナ｜　120　｜　150　｜　130　｜　120　
メロン｜　450　｜　410　｜　420　｜　410　
すいか｜　340　｜　320　｜　370　｜　320　


調べたところ、過去に同条件で「最大値」を反映させたいと質問されていた方がおり、
以下のモジュールとクエリ式を記載するという解決法が提示されておりました。
（https://oshiete.goo.ne.jp/qa/958118.html）

モジュール
Function myMax(ParamArray a())
Dim i
myMax = -9999
For i = 0 To UBound(a())
If a(i) > myMax Then myMax = a(i)
Next
End Function

クエリ式
myMax([n01],[n02],[n03])

そこで、ここに記載されているとおりの内容を実施すると、
最大値を反映させることができました。

そこで、このモジュールならびにクエリ式に若干の変更を加え、
最小値を反映させられるようにしたいのですが、
どなたか、その内容をご教示いただけないでしょうか？

何卒よろしくお願いいたします。

No.1 ベストアンサー 回答者： nicotinism 回答日時： 2016/06/30 09:58

こんな風では？

Function myMin(ParamArray aryX() As Variant) As Variant
Dim v As Variant
For Each v In aryX
If IsEmpty(myMin) Or IsNull(myMin) Or v < myMin Then
myMin = v
End If
Next
End Function

クエリでは
最小値:mymin([A商店価格],[B商店価格],[C商店価格])*1