AccessのVBAでSQLのUPDATE SET WHEREを使い論理演算子の条件に合ったレコードを全て更新｜フォーム実行例

UPDATE テーブル SET 値引き=20 WHERE 数量>3000 OR 単価>5000
上の場合、数量が3000以上か単価が5000円以上のデータの値引きを20円にセットします。
その他、「数量>3000 AND 単価>5000」のように指定します。
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim n1 As Long
    Dim n2 As Long
    Dim n3 As Long
    If IsNull(Me!テキスト1) Then
        MsgBox "更新する縦サイズを入力してください。"
        Exit Sub
    End If
    If IsNull(Me!テキスト2) Then
        MsgBox "更新する横サイズを入力してください。"
        Exit Sub
    End If
    If IsNull(Me!テキスト3) Then
        MsgBox "更新する高さを入力してください。"
        Exit Sub
    End If
    SQL = "UPDATE T_商品管理 SET 送料=830 WHERE 縦>=" & Me!テキスト1 & " AND 横>=" & Me!テキスト2 & " AND 高さ>=" & Me!テキスト3
    CurrentDb.Execute SQL, dbFailOnError
End Sub

サンプルソフトのダウンロード