access2010 VBA で登録済みレコードをSQL文で編集したい

##質問内容
access2010で伝票管理システムを作成している者です。

今回は例として顧客についてですが
登録した既存のレコードを編集する方法を教えてほしいです。

なお、いままでSQL文で作成してきたのでそれで教えてくださると幸いです。

##概要
1,新規入力フォームで顧客番号、顧客名、住所を入力します。
2,顧客マスタに登録されています。
3,マスタのレコードごとにある編集ボタンを押すと、入力フォームと共通の編集フォームが開き、選択したレコードのデータが各テキストボックスに参照されています。

※ここまではできています※

4,編集したい箇所を編集し、編集完了ボタンを押すとデータが更新され、マスタに反映されます。
↑この作業がわからないです。

テーブルは保存用のT_Customer
と
入力用のT_WCustomer
があります。

##試してみたこと

VBA
1Private Sub edit_tables()
2
3    Dim SQL As String
4    
5    SQL = "UPDATE T_Customer SET F_CustomerName = Text_CustomerName,F_Address = Text_Address WHERE T_Customer,F_CustomerCode = T_WCustomer,F_CustomerCode"
6    
7    With Application.CurrentDb
8        .Execute SQL
9    End With
10
11    Me.Requery
12
13End Sub

※Text_～　は、テキストボックス名です

不明な点があればコメントください。

行動規範の内容に同意します

回答3件

文章の説明とコードが合致していないですが、
本テーブル T_Customer
ワークテーブル T_WCustomer
両者の主キーが　F_CustomerCode
として、

VBA
1SQL = "UPDATE T_Customer INNER JOIN T_WCustomer " & _
2      "ON T_Customer.F_CustomerCode = T_WCustomer.F_CustomerCode " & _
3      "SET F_CustomerName = Text_CustomerName, F_Address = Text_Address"

saziさんとかぶった。
しかも、Text_CustomerName と Text_Address は名前から推測するに、フィールド名ではなくテキストボックス名の可能性が高い。ということで、saziさんと同じだか、下記に修正

VBA
1SQL = "UPDATE T_Customer AS T INNER JOIN T_WCustomer AS W " & _
2      "ON T.F_CustomerCode = W.F_CustomerCode " & _
3      "SET T.F_CustomerName = W.F_CustomerName, T.F_Address = W.F_Address"

投稿2019/06/04 06:39

編集2019/06/04 06:47

hatena19

総合スコア33699

退会済みユーザー

2019/06/04 07:10 編集

回答ありがとうございます！無事、問題が解決いたしました。とても、参考になりました！

行動規範の内容に同意します

ベストアンサー

SQL内にフォームの項目を埋め込んで実行する場合は、.ExecuteではなくDoCmd.RunSQLを使用します。
Executeで実行する場合には、コントロールは文字列内に含めず、参照します。

VBA
1SQL = "UPDATE T_Customer SET F_CustomerName = '" & Text_CustomerName & "',F_Address = '" & Text_Address & "' WHERE F_CustomerCode = " & Text_CustomerCode

ただ質問の内容では編集用のワークテーブルとフォームは連結しているようですから、テーブル同士で更新を行えば良い事になります。

VBA
1SQL = "UPDATE T_Customer as T inner join T_WCustomer as W on t.F_CustomerCode = w.F_CustomerCode SET T.F_CustomerName = W.F_CustomerName, T.F_Address = W.F_Address"

投稿2019/06/04 06:38