テーブルの更新したい。

質問

教えてください。

Ａ　と　Ｂというテーブルがあり、ＢのデータをＡに更新後、Ｂのフィールド[最終ＹＭＤ]に日付をいれたい。　ＮＯＷ（）を使用したい。

下記のようにモジュールを分からないなりに作成したのですが　テーブルＡは、更新されるのですが
次をどのようにしたら良いかわかりません。
宜しくお願いいたします。

Function DONEW_INP(FORMNAME)

'Dim Q As QueryDef, MyDB As Database, F As Form
Dim T1 As Recordset, T2 As Recordset

Set MyDB = CurrentDb
Set F = Forms(FORMNAME) '
Set Q = MyDB.QueryDefs("INP_MST検索")

Q(0) = F("No")
Q(1) = F("倉庫No")
Q(2) = F("ID")

Set T1 = Q.OpenRecordset()
Q.Close

T1.Edit　　　　　　　　　　　　　　　　　　　　　　　　　’テーブルＡにテーブルＢを更新。

T1("0") = Val_0(T1("0")) + Val_0(F("01"))
T1("1") = Val_0(T1("1")) + Val_0(F("11"))
T1("2") = Val_0(T1("2")) + Val_0(F("21"))
T1.Update
T1.Close

Set Q = MyDB.QueryDefs("INP_台帳検索")

Q(0) = F("No")
Q(1) = F("区分")
Q(2) = F("種類")
Q(3) = F("倉庫No")

Set T2 = Q.OpenRecordset()

Q.Close

'T2.Edit　　　　　　　　　　　　　　　　　　’Ｂのテーブルの更新。

'T2("最終YMD") = Now()

　'T2.Update
'T2.Close
　End Function

回答No.2

nora1962 · ベストアンサー

別に慌てなくていいです。
・「1.更新は、Ａで、Ｂの内容です。」
これ変でしょう？普通なら「Bの内容でAを更新する」とか「Aの内容でBを更新する」になるはずです。
だから、更新対象のテーブルは一つなのかそれとも二つなのかそれも分かりません。
どうも「てにをは」が混乱しているように思います。
仮に「Ａの内容でＢを更新する」
なら、Aだけからなるクエリでレコードセットを作って、そこからBをだけからなるレコードセットを更新するのではなく、BをＡで更新する更新クエリを作り、実行すべきだと思います。

可能ならテーブルA,B、クエリ「INP_MST検索」、「INP_台帳検索」の内容を提示してください。

お礼

ご指摘があったのでクエリを確認したところ、
クエリ「INP_台帳検索」が特定のレコードを
実行できないのが原因でした。

見て頂き、ありがとうございました。

回答No.1

nora1962

どうも、日本語になっていないように感じるのは私だけでしょうか。
・「Ａ　と　Ｂというテーブルがあり、ＢのデータをＡに更新後」
更新するのはＡ？それともＢ？
・「Ｂのフィールド[最終ＹＭＤ]に日付をいれたい。　ＮＯＷ（）を使用したい。」
Ｂを更新して、その際フィールドをNOW()関数で更新したい？
・VBAのソースですが、ざっと見てループがありませんが更新対象のレコードは1件だけ？
・テーブルAを使っているのはどっちのクエリ？

補足

説明が変で申し訳ないです。

1.更新は、Ａで、Ｂの内容です。
2.Ａに更新した際に更新チェックとして、Ｂの[最終YMD]に日付をいれたい為です。
3.Ａを使っているのは、最初のINP_MST検索です。