エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
グループ内であるフィールドが最大値のレコードを抽出する
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
グループ内であるフィールドが最大値のレコードを抽出する
上記のようなテーブルに10,000件のレコード(1Group当たり100件、全100Group)をVBAで作成しました。ID は... 上記のようなテーブルに10,000件のレコード(1Group当たり100件、全100Group)をVBAで作成しました。ID は連番、Fld1 は Rnd関数で乱数を生成しました。ちなみにコードは下記のものです。 Public Sub MakeData2() Dim rs As DAO.Recordset Dim i As Long, j As Long, c As Long CurrentDb.Execute "DELETE FROM Table2;" Randomize Set rs = CurrentDb.OpenRecordset("Table2") For i = 1 To 100 For j = 1 To 100 c = c + 1 rs.AddNew rs!ID = c rs!GroupID = i rs!Fld1 = Int(100000 * Rnd + 1) rs.Upd