Microsoft Access 掲示板

Microsoft Access 掲示板

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

15 コメント
views
4 フォロー
13
hiroton 2023/10/11 (水) 13:24:57 88156@f966d

以下、サンプルコードを実行してみました

Sub test()
Dim StrSQL As String
Dim A1 As Long
A1 = 1

'ここからコピペ    
StrSQL = _
            " SELECT A" & A1 & ", 変位" & A1 & ", №" & _
            " FROM テーブル" & _
            " WHERE テーブル.変位" & A1 & " = DMax('変位" & A1 & "','テーブル','№>=1 AND №<=9')" & _
            " ORDER BY テーブル.変位" & A1 & " DESC , テーブル.№ DESC;"
'ここまでコピペ

Debug.Print StrSQL
End Sub

イミディエイトウィンドウには

SELECT A1, 変位1, № FROM テーブル WHERE テーブル.変位1 = DMax('変位1','テーブル','№>=1 AND №<=9') ORDER BY テーブル.変位1 DESC , テーブル.№ DESC;

と表示されエラーは発生しません

問題があるとすればStrSQLの型宣言が間違っているくらいですかね

通報 ...