Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1329 / 9994

←次へ　｜　前へ→


	【11963】最大値の取得で・・・

あおぎん - 11/3/2(水) 12:59 -


	引用なし

	パスワード

いつもお世話になってます。
またまたよろしくお願いします。

同一テーブルにあるフィールドA,B,C（すべて数値型）の最大値を取得したいと思い、検索して、次のような自作関数をモジュールに記入しクエリで使用して目的の値を取得しています。
（フィールドは現在３つなのでIF文でもいいのですが、もっと多くなることが予測されるので関数にしたいと思っています。）

Function Maxnb(ParamArray Mynb()) As Long
Dim i As Long
　　For i = 0 To UBound(Mynb) - 1
　　Debug.Print i
　　　　If Maxnb = 0 Then
　　　　　　Maxnb = Mynb(i)
　　　　Else
　　　　　　If Maxnb < Mynb(i) Then
　　　　　　　　Maxnb = Mynb(i)
　　　　　　End If
　　　　End If
　　Next
End Function

クエリ記述：Maxnb([Ａ],[Ｂ],[Ｃ])

ところが、現状Ｃの値を無視し、Ａ，Ｂの最大値のみを取得してきます。関数の記述に不備がありますでしょうか？？
Ubound関数は配列のサイズを取得してくるとのことですが、デバッグの結果、iは0と1の繰り返しですので、３つめのフィールドＣを認識してないのでは？と思っています。が、解決法の見当がつきません。

お分かりになる方、どうか回答をよろしくお願いいたします。

(Win Accessともに2000)

477 hits

▼

【11963】最大値の取得で・・・ あおぎん 11/3/2(水) 12:59