即効テクニック |
●概要● 構文 UPDATE テーブル名 SETフィールド = フィールドの値; UPDATEステートメントを使用してテーブルのレコードを更新します。SET句でフィールド名を指定し、「=」の右辺に更新後のフィールドの値を記述します。 UPDATEステートメントでレコードを更新するテーブルが存在しない場合、エラーとなりますが、テーブルが存在していて、更新対象のレコードが存在しない場合は、エラーにはなりません。 ●サンプル● 'レコードを更新する Public Sub Sample() Dim myDB As Database Dim mySQL As String 'SQLステートメントを定義する mySQL = "UPDATE 商品テーブル SET 単価=150 WHERE 商品コード=1002;" 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'SQLを実行する myDB.Execute mySQL End Sub