Microsoft Access 掲示板

提示のコードは構文エラーで実行できないものですが、実際のものは、前回の質問で正しいものに修正はできているということでよろしいですか。

やりたいことは、一致した[No.]のレコードの[基4]フィールドに”※”マークを付けたいです。

更新クエリ一発でやりたいということですか。
VBAでSQLを記述しているということは、VBAを使ってもいいということですか。

説明不足ですみません。更新クエリ一発で解決できてしまうのでしたら、ぜひともお願いいたします。本当にやりたいことはVBAで基4, 変位4, の「4」を変数にして、for　next　1～4　で実行したいのです。通常のクエリ処理しか行ったことがないので、選択クエリを作成し、その結果で更新クエリを実行する。という流れしか知らなかったです。変数に置き換える前に、固定の名前ままでSQLを見たほうが理解できると思いまして、今回と前回に質問を分けました。お願いいたします

更新したいテーブルは、T_01地耐力 ですか。
T_01地耐力 を特定の抽出条件で抽出して指定のフィールドで並べ替えて、先頭のレコードの[基4]フィールドを更新したいということですか。

だとしたら、VBAを使うなら、更新クエリではなく、VBAで更新した方が簡単そうです。

とりあえず考え方だけのコード例。

StrSQL = _
    " SELECT TOP 1 基4, 変位4, №" & _
    " FROM T_01地耐力" & _
    " WHERE T01地耐力.№ Between 1 And 9" & _
    " ORDER BY T_01_地耐力.変位4  DESC , T_01_地耐力.№ DESC;"
Set rs = CurrentDB.OpenRecordSet(StrSQL)
rs.Edit
rs![基4] = "※"
rs.UpDate
rs.Close

ありがとうございます。VBAで直接更新ができるのですね。勉強不足ですみません。
では変数にしたいのなら以下のように変更すれば良いのでしょうか？

for A1=1 to 4
StrSQL1 =
    " SELECT TOP 1 基" & A1 & ", 変位" & A1 & ", №" &
    " FROM T_01地耐力" &
    " WHERE T01地耐力.№ Between 1 And 9" &
    " ORDER BY T_01_地耐力.変位" & A1 & "DESC , T_01_地耐力.№ DESC;"
Set rs = CurrentDB.OpenRecordSet(StrSQL)
rs.Edit
rs!"[基" & A1 &"] = '※'"
rs.UpDa[te
rs.Close
next

考え方はそれであってますが、そのコードではコンパイルエラーで実行できませんね。
前回の質問の内容を理解して書き直す必要があります。

あと、フィールドを文字列で参照する場合は、下記のような感じでFieldsプロパティを使います。

        rs.Fields("基4" & A1) = "※"

上のコードを実行してみたのですが
        rs. "[基" & A1 & "]='※'"
のところで　構文エラー　になってしまいました。　お願いいたします

すみません。各構文に　&_　に追加してコピーして、こちらに張り付けたのですが消えてしまっているようです。
実際のVBAには付いています。理解できているでしょうか？
フィールドを文字列で参照する方法、ありがとうございました。早速変更いたしました。
今度は　 Set rs = CurrentDb.OpenRecordset(StrSQL)　のところで　
実行時エラー3061　パラメータが少なすぎます。1をしてください　になってしまいました。お願いたします

何度も申し訳ありません
記載方法のご説明、ありがとうございました。今度はちゃんと見えていますでしょうか？

クエリのデザインビューに変数に置き換える前の以下の分を張り付け、& _　と　"　を外して実行させてみました。

        StrSQL = _
            SELECT TOP 1 基4, 変位4, №
            FROM T_01_地耐力
            WHERE (T_01_地耐力.№ Between 1 And 9)
            ORDER BY T_01_地耐力.変位4 DESC , T_01_地耐力.№ DESC

クエリの画面では、表示されました。もう一度VBAに戻って　& _　と　"　を付け実行すると

        StrSQL = _
            "SELECT TOP 1 基4, 変位4, №" & _
            "FROM T_01_地耐力" & _
            "WHERE (T_01_地耐力.№ Between 1 And 9)" & _
            "ORDER BY T_01_地耐力.変位4 DESC , T_01_地耐力.№ DESC"

今度は実行時エラー3075「WHERE № Between 1 And 9 ORDER BY T_01_地耐力.変位4 DESC , T_01_地耐力.№ DESC」
演算子がありません　になってしまいました。
お願いいたします

既にhirotonさんの回答で解決できると思いますが、
VBAで生成したSQL文の確認方法をアドバイスしておきます。

下記のようにデバッグ用コードを挿入します。

        StrSQL = _
            "SELECT TOP 1 基4, 変位4, №" & _
            "FROM T_01_地耐力" & _
            "WHERE (T_01_地耐力.№ Between 1 And 9)" & _
            "ORDER BY T_01_地耐力.変位4 DESC , T_01_地耐力.№ DESC"
        Debug.Print StrSQL 'デバッグ用コード

これを実行するとイミディエイトウィンドウに、StrSQLに格納されている文字列が出力されますので、
それをコピーしてクエリのSQLビューに貼り付けます。
そしてこのクエリを開くことができれば、正しいSQL文が生成できているということです。
上記の場合だと、開くことができないはずです。
SQL文をよく見れば、区切りが適切にできていないのが分かります。

hirotonさんの回答のコードなら問題なく実行できるでしょう。

動作確認後はデバッグ用コードは不要なので削除しておいてください。

お返事が遅くなり申し訳ありません。もう一度教えていただいた文章を読み直し、デバッグ用コードも使い書き直しまして無事に進めることができました。ありがとうございました。そのうえで追加質問をさせてください。
更新条件で[No]が1から9まで、[変位4]の値が一番大きいものに※マークを付けるだけではなく、でも一番大きい[変位4]の値が[No]が、9ではないものに限定したいです。通常のクエリなら2つ3つ重ねていけばできますがsqlでは、どのように追記すれば良いのでしょうか？おねがいいたします
'''" WHERE T_01地耐力.№ Between 1 And 9" &
            " ORDER BY T_01_地耐力.変位" & A1 & " DESC , T_01_地耐力.№ DESC;"
'''

更新条件で[No]が1から9まで、[変位4]の値が一番大きいものに※マークを付けるだけではなく、でも一番大きい[変位4]の値が[No]が、9ではないものに限定したいです。

抽出条件が、「[No]が1から9まで」かつ「[No]が、9ではないもの」ということでしょうか。
だとしたら、「[No]が1から8まで」ということになりますが、そういうことではないのですか。

ではなくて、
「[No]が1から9まで」の範囲で[変位4]か一番大きいレコードの[No]が9の時は※マークをつけない(更新しない)ということでしょうか。

返信ありがとうございます。「[No]が1から9まで」の範囲で[変位4]か一番大きいレコードの[No]が9の時は※マークをつけない　ということです。可能でしょうか？お願いいたします。

下記でどうでしょう。

    StrSQL = _
        " SELECT TOP 1 基4, 変位4, №" & _
        " FROM T_01_地耐力" & _
        " WHERE (T_01_地耐力.№ Between 1 And 9)" & _
        " ORDER BY T_01_地耐力.変位4 DESC , T_01_地耐力.№ DESC"
    Set rs = CurrentDB.OpenRecordSet(StrSQL)
    If rs![変位4] <> 9 Then
        rs.Edit
        rs![基4] = "※"
        rs.UpDate
        rs.Close
    End If

そこに、IF式を入れるだけで、そんなに意味合いが変わるのですね！無事に出来上がりました。長々と本当に、本当にありがとうございました。