VBAでその月の数の一番多い値を取得したいのですが

質問

フィールド1 フィールド2
2016/08/07 52.6
2016/08/06 52.2
2016/08/05 52.2
2016/08/04 52.9
2016/08/03 53.6
2016/08/02 53.3
2016/08/01 53.1
と言うデータがテーブルには入っています。

アクセスのVBAでその月の数の一番多い値を取得したいのですが

strMAX = DMax("[フィールド2]", "テーブル1", "[フィールド1] = '" & ??? & "'")

上記の？？？の部分はどうすればいいでしょうか？

日付をフィルタするのではなく
「８月の中で一番多い値」を指定するにはどうすればいいでしょうか？

結果としては、53.6を取得したいです。

回答No.2

noname#231195 · ベストアンサー

>上記の？？？の部分はどうすればいいでしょうか？
Format(Date(),"yyyy/mm")
としてみたらどうでしょう。
これはこのDMax関数が走ったその日の年、月を文字列形式で吐き出します。

フィールド１は文字列型なんですね？
それにフィールド2も文字列型なのかもしれませんが、もしそうなら、「一番多い値」ってどういう意味ですか？
数字として読んだ時に一番大きい値の意味なら、フィールド2は数値型にするか、別にフィールドを作る必要があります。
文字列型のままですと、DMax関数は、100と20なら20の方を吐き出してくるはずです。そうしたいんですか？

なお、「一番多い値」って53.6の日が2日とか3日とかあるのかと思いました。

回答No.3

noname#231195

#2です。

ゴメン。全然違うこと書いてた。

DMax("[フィールド2]", "テーブル1", "[フィールド1] LIKE '" & Format(Date, "yyyy/mm") & "*'")

でした。

回答No.1

kichikuma

フィールド1と2のデータが繋がっていて不親切ですね。

という事でそれなりの回答をします。

最大値を変数に入れて指定したら良いです。

最大値に関しては、そう言う関数もあるかもしれないですが、比較して大きい方を保存することを繰り返せば最大値がわかりますよ。