スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文　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