AccessのVBAでSQLのUPDATE SETを使い、複数のフィールド値の更新｜フォーム実行例

値の更新 : UPDATE SET

UPDATE テーブル名 SET フィールド名1=値,フィールド名2=値,フィールド名3=値
複数のフィールド値をまとめて更新するには、上のようにコンマで区切ります。
沢山のフィールドを更新するにはSQL文が長くなり後で修正するのが大変になるので、ループを回しSQL文を作成するといいです。

Home　

SQL Tips

サンプルソフト
「月末在庫」「生在庫」「仕掛在庫」をテキストボックスに入力し、「実行」ボタンをクリックすると、「T_在庫管理」テーブルの全レコードに入力値が更新されます。
在庫フィールドは長整数型なので、数値を入力する必要があります。
もし文字を入力し実行すると、「実行時エラー '13'　型が一致しません。

SQL 在庫数の更新

Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim n1 As Long
    Dim n2 As Long
    Dim n3 As Long
    n1 = Nz(Me!テキスト1, 0)
    n2 = Nz(Me!テキスト2, 0)
    n3 = Nz(Me!テキスト3, 0)
    SQL = "UPDATE T_在庫管理 SET 月末在庫=" & n1 & ",生在庫=" & n2 & ",仕掛在庫=" & n3
    CurrentDb.Execute SQL, dbFailOnError
End Sub

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

Home　

SQL Tips