Microsoft Access 掲示板

Microsoft Access 掲示板

抽出したレコードが2件以上あったときの処理 / 15

15
hiroton 2023/10/11 (水) 16:05:45 88156@f966d

では、ついでに
内容が具体的ではなかったのでクエリ側でDMax関数を使う形で回答していましたが、VBA上だけで完結する内容であれば、DMaxの計算は外に出してしまったほうが分かりやすくなると思います

Dim maxValue As Long 'ここの型宣言は適切なモノで


For A1 = 1 To 4

        maxValue = DMax("変位" & A1, "テーブル", "№>=1 AND №<=9")
        StrSQL = _
            " SELECT A" & A1 & ", 変位" & A1 & ", №" & _
            " FROM テーブル" & _
            " WHERE テーブル.変位" & A1 & " = " & maxValue _
            " ORDER BY テーブル.変位" & A1 & " DESC , テーブル.№ DESC;"
通報 ...