Microsoft Access 掲示板

    StrSQL = "UPDATE T01地耐力 SET 基1 =IIf([№]=1 Or [№]=9,"",'※')" &
            "WHERE [変位1]=DMax(変位],№>=1 AND №<=9) AND ([№] Between 1 And 9);"And 9);"

上記コードの改行は実際にはないとして(あると構文エラーで実行すらできないので)、
下記に変更するといいでしょう。

StrSQL = "UPDATE T_01地耐力 SET 基1 =IIf([№]=1 Or [№]=9,"""",'※')" & _
    "WHERE [変位1]=DMax(変位],№>=1 AND №<=9) AND ([№] Between 1 And 9);"

VBAの文字列内(""内)で"を表現するには""と重ねる必要があります。
あるいは、'を使う方が読みやすいですね。

StrSQL = "UPDATE T_01地耐力 SET 基1 =IIf([№]=1 Or [№]=9,'','※')" &
    "WHERE [変位1]=DMax(変位],№>=1 AND №<=9) AND ([№] Between 1 And 9);"

ありがとうございます。途方に暮れていたのでとっても助かります！

実際　教えていただいたものを張り付けて実行したのですが
実行エラー3075　DMax(変位],№>=1 AND №<=9) AND ([№] Between 1 And 9)　と表示されました。
何がいけなかったのでしょう？お願いいたします

後半の方を見てませんでした。下記でどうでしょうか。テーブル名の部分は実在のテーブル名にしてください。

StrSQL = "UPDATE T_01地耐力 SET 基1 =IIf([№]=1 Or [№]=9,'','※')" & _
    "WHERE [変位1]=DMax('[変位]','テーブル名','[№] Between 1 And 9');"

お騒がせいたしました。落ち着いてみたら解決できる事でしたね。すみません。ありがとうございました。