Microsoft Access 掲示板

Microsoft Access 掲示板

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

15 コメント
views
4 フォロー
9
hiroton 2023/10/06 (金) 17:50:49 19f27@f966d

もう少し前後がないと何ともですが必要そうなところを記述すると

Dim strSQL As String
Dim フィールドカウンタ As Long

For フィールドカウンタ = 1 to 4
  strSQL = "テーブル.A" & フィールドカウンタ & " = DMax('A" & フィールドカウンタ & "','テーブル','№>=1 AND №<=9')"
Next

1～4と、数字部分だけが変わるのであればその前の部分までは直接文字列で記述しておけばいいです

通報 ...