Microsoft Access 掲示板

Microsoft Access 掲示板

選択クエリで抽出した値で、更新したい / 15

16 コメント
views
4 フォロー
15
hatena 2023/09/14 (木) 14:55:13

下記でどうでしょう。

    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
通報 ...