Access VBAで更新クエリを作成し実行する(アクション クエリ)

Access VBAでCreateQueryDefメソッドを使い、更新クエリを作成します。

追加クエリはINSERTを使用しましたが、更新クエリは「UPDATE テーブル名 SET 更新後のデータ WHERE 更新するレコードの条件」を使います。
その後、DoCmd.OpenQueryで作成したクエリを実行し、DoCmd.Closeで閉じます。



BackHome BackTipsへ Backメニューへ

実行前の製品マスター
2009年度の製品マスターテーブル

■ Access実行フォーム
更新実行フォーム

実行後の製品マスターテーブル
「OP-125」が「OP-124」に更新されています。
更新された2009年度の製品マスターテーブル

更新クエリ「Q_更新」が作成されています。
クエリのデータベースウィンドウ



■ Access VBA 実行コード

Option Compare Database
Option Explicit

Private Sub コマンド0_Click()
    Dim Qdf As QueryDef
    Dim SQL As String
    SQL = "UPDATE M_製品マスター_2009年度 SET 製品コード = 'OP-124' WHERE 製品コード = 'OP-125'"
    Set Qdf = CurrentDb.CreateQueryDef("Q_更新", SQL)
    Set Qdf = Nothing

    DoCmd.OpenQuery "Q_更新"
    DoCmd.Close acQuery, "Q_更新"
End Sub



BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft