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);"