Microsoft Access 掲示板

Microsoft Access 掲示板

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

10
ぽん 2023/10/10 (火) 16:38:43 2d148@1925b

ありがとうございます。直接文字列と　A1　で入力したのですが

For A1 = 1 To 4

        StrSQL = _
            " SELECT A" & A1 & ", 変位" & A1 & ", №" & _
            " FROM テーブル" & _
            " WHERE テーブル.変位" & A1 & " = DMax('変位" & A1 & "','テーブル','№>=1 AND №<=9')" & _
            " ORDER BY テーブル.変位" & A1 & " DESC , テーブル.№ DESC;"
        Set rs = CurrentDb.OpenRecordset(StrSQL)
        
        rs.MoveLast
        
        aaa = rs.RecordCount
        
        If aaa = 1 Then
        
        Else
        	MsgBox aaa
        End If
    Next

Dmaxの文章を追加したら「エラー13　型が一致しません」になってしまいました。
よろしくお願いいたします

通報 ...