ACCESSのサブフォームをVBAで・・・

質問

よろしくお願い致します。

ACCESSのサブフォームをVBAでテーブルに入力するにはどのようにしたら良いのでしょうか？
イメージ的にはボタンをクリックするとメインのフォームとサブフォームの両方のデータが、別々のテーブルに入力されるようにしたいのですが・・・

ご回答ください。お願い致します。

回答No.1

pooh_200x

もう少し詳しく説明が欲しいのですが・・・

>メインフォームとサブフォームが存在してA・Bのテーブル両方に同じ内容が
Upされればよいのでしょうか？
>それともA・Bの片方にメインの内容反対側にサブの内容がUpされれば良いの
でしょうか？
どちらにせよDAOを使用します。2000以上だったらADOでも可能ですけど・・・
一応簡単なDAO例を書いておきます。
>メインフォームのテキストボックスAの内容をA_TBLのテキストAレコードにUp
するには↓

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim sStrSql As String
Set dbs = CurrentDb
sStrSql = "SELECT A_TBL.テキストA, FROM A_TBL"
Set rst = dbs.OpenRecordset(sStrSql)
With rst
Do Until .EOF
.Edit
.Fields("テキストA") = Me.テキストA.Value
'フィールド"テキストA"にテキストボックスAの値をUp
.Update
.MoveNext
Loop
.Close
End With
dbs.Close
'詳細が分かればもう少し説明できます。

補足

説明不足で申しわけありませんでした。
A・Bの片方にメインの内容反対側にサブの内容がUpしたいと思っております。
あと、A・B両方の関連性を持たすためのキーは、同じ物を両方にUpさせたいと考えております。
よろしく、お願い致します。