access怎样实现在A表ID字段输入值后自动传递到B表、C表的ID字段中？

imdxcn

我有A、B、C3个相互均为一对一关系，通过相同的ID主键链接的数据表，想在A表的ID字段中输入值后，该值自动传递到B表和C表的ID字段中，请教高手，该怎样做才能实现？谢谢！

补充：A、B、C3个表中ID值相同的数据共同组成一条记录，因为字段太多，才分成了3个表。

imdxcn

{:soso_e115:}无人赐教？是没有办法做到吗？

山中老人

使用VBA 代码吧！

imdxcn

山中老人 发表于 2015-10-29 16:46
使用VBA 代码吧！

代码怎么写，能具体说说吗？谢谢！

山中老人

当A表录入完成后执行【查询】或用VBA运行SQL语句。

SQL语句:
“INSERT INTO B ([ID]) SELECT [ID] FROM A WHERE [ID]not in
(SELECT [ID] FROM B)”     
'--注释: 将B表中没有的ID，从A表插入B表。


“INSERT INTO C ([ID]) SELECT [ID] FROM A WHERE [ID]not in
(SELECT [ID] FROM C)”     
'--注释: 将C表中没有的ID，从A表插入C表。


进一步解释：
SELECT [ID] FROM C    意思为：列出C表所有的ID

SELECT [ID] FROM A   意思为： 列出A表所有的ID
WHERE [ID]not in（）  意思为：筛选条件  ID不能为（）中的内容
SELECT [ID] FROM A WHERE [ID]not in(SELECT [ID] FROM C)  意思为：列出A表中，所有不存在于C表的ID

INSERT INTO C ([ID])   意思为：将一些内容插入到C表的ID列

civl

山中老人 发表于 2015-10-31 08:09
当A表录入完成后执行【查询】或用VBA运行SQL语句。

SQL语句:

谢谢“山中老人”，我用Docmd.RunSQL加上INSERT语句完成了。

civl

导入excel数据.rar (43.99 KB, 下载次数: 88)

2015-10-31 14:33 上传

点击文件名下载附件

这是我的修改版

imdxcn

山中老人 发表于 2015-10-31 08:09
当A表录入完成后执行【查询】或用VBA运行SQL语句。

SQL语句:

非常感谢！再请教：怎样才能让这两条SQL语句在A表的ID录入后立即执行呢？

imdxcn

山中老人 发表于 2015-10-31 08:09
当A表录入完成后执行【查询】或用VBA运行SQL语句。

SQL语句:

山中老人，您的SQL语句已圆满解决我的问题，相关代码为：
    Dim strsql As String
    strsql = "INSERT INTO B ([ID]) SELECT [ID] FROM A WHERE [ID]not in (SELECT [ID] FROM B)"
    DoCmd.RunSQL strsql
    DoCmd.SetWarnings False
和：
     Dim strsql As String
    strsql = "INSERT INTO C ([ID]) SELECT [ID] FROM A WHERE [ID]not in (SELECT [ID] FROM C)"
    DoCmd.RunSQL strsql
    DoCmd.SetWarnings False

imdxcn

山中老人 发表于 2015-10-31 08:09
当A表录入完成后执行【查询】或用VBA运行SQL语句。

SQL语句:

谢谢“山中老人”！