如何用代码把当前记录追加到另一张表中？

yj11252551

如何用代码把当前记录追加到另一张表中，且不出现系统提示？

sea.er

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [表1] ( 字段1 ) SELECT 表2.字段1 FROM 表2;"
DoCmd.SetWarnings True

yj11252551

不行啊，天使！！！字段1　是什么意思？
是这样的：我建了一个含有子窗体的窗体用于修改特定记录，子窗体内的记录来源于一个查询。我想让其中一条记录的特定字段值发生变化后，将这条记录COPY到另一个与源表结构完全相同的表里去，用代码怎么实现？

ququ

表内的字段

yj11252551

菜哥，我问的是在括号内把所有的字段都写上还是把第一个字段都写上，再说我只要追加当前的那条记录啊，天使说的那样好象是把表1所有的记录都追加到表2里去？

qqqq

这个用DAO可以解决的。
dim db as database
dim rst as recordset
set rst=db.open...........
rst.addnew
rst![字段名]=me.[子窗体名].form.[字段名]
......
update
rst.close
db.close

[此贴子已经被作者于2004-3-8 19:15:18编辑过]