即効テクニック |
●概要● 構文 UPDATE テーブル名 SETフィールド1 = フィールド1の値, フィールド2 = フィールド2の値,・・・; UPDATEステートメントを使用してテーブルのレコードを更新します。SET句に「フィールド名 = 値」という式を「,」(カンマ)で区切って複数記述すると、レコード内の複数のフィールドを更新することができます。 UPDATEステートメントでレコードを更新するテーブルが存在しない場合、エラーとなりますが、テーブルが存在していて、更新対象のレコードが存在しない場合はエラーにはなりません。 サンプルでは、「商品テーブル」の「商品名」、「単価」フィールドの値を更新します。 ●サンプル● 'レコードの複数の項目を更新する Public Sub Sample() Dim myDB As Database Dim mySQL As String 'SQLステートメントを定義する mySQL = "UPDATE 商品テーブル " & _ "SET 商品名='プレミアム アイスクリーム',単価=200 " & _ "WHERE 商品コード=1002;" 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'SQLを実行する myDB.Execute mySQL End Sub