如何向两个相关表同时添加记录？

cocopig

设有表A（AA，AB），表B（BB，AB），两表有相同字段AB，现打算一个按钮向两表同时添加记录，VBA代码应如何编写？

我的想法是先后建立两表不同的连接字符串及recordset连接，但如果二表是关系表的话，好像这样不妥，求教。。。。。

roych

直接执行追加查询就好了。以下为参考语句(具体需要根据实际字段类型而定，多个字段则以逗号分开）：
docmd.setwarnings false
docmd.runsql "Insert 表1(字段A) Values ('" & Me.控件值 &"')"
docmd.runsql "Insert 表2(字段A) Values ('" & Me.控件值 &"')"
窗体控件不要绑定数据表。

layaman_999

没什么不妥的，同时添加好像不行，什么东西都要有个先后，先添加主表，在添加从表