| スポンサードリンク |
UPDATE テーブル名 SET フィールド名1=値,フィールド名2=値,フィールド名3=値
複数のフィールド値をまとめて更新するには、上のようにコンマで区切ります。
沢山のフィールドを更新するにはSQL文が長くなり後で修正するのが大変になるので、ループを回しSQL文を作成するといいです。
|
|
サンプルソフト
「月末在庫」「生在庫」「仕掛在庫」をテキストボックスに入力し、「実行」ボタンをクリックすると、「T_在庫管理」テーブルの全レコードに入力値が更新されます。
在庫フィールドは長整数型なので、数値を入力する必要があります。
もし文字を入力し実行すると、「実行時エラー '13' 型が一致しません。
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
|
|
ダウンロード