AccessのVBAでSQLのUPDATE SETを使い、不等号に合ったレコードを全て更新|フォーム実行例

レコードの更新 : UPDATE SET

UPDATE テーブル SET 数量=500 WHERE 金額>3000
この場合、金額が3000円以上のデータの数量を500にセットします。
その他、「金額>=3000」「金額<3000」「金額<=3000」のように指定します。



BackHomeへ BackSQL Tipsへ

サンプルソフト

入力された「高さ」以上の製品の「梱包」を”済み”に更新します。
「高さ」を入力し、「実行」ボタンをクリックしてください。
数値を入力してください、もし文字を入力し実行するとエラーになります。

入力された「高さ」以上の製品が見つからない場合は、何も変更されません。

製品の高さ以上


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
    SQL = "UPDATE T_商品管理 SET 梱包='済み' WHERE 高さ>=" & Me!テキスト1
    CurrentDb.Execute SQL, dbFailOnError
End Sub

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



BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft