求助，需要一段按键代码，自己搞了很久一直没成功。

stone　发表于：2010-06-04 20:14:10 　

有A表和B表两个结构相同

这个窗体按键的作用是把A表的所有记录复制到B表里去

同时清空A表所有记录。

大学里学的那点VBA知识完全不够用了，求高手帮忙。

江羽发表于：2010-06-04 21:09:05

假定(A表)字段:A1,A2;(B表)字段:B1,B2

'***************************************

'将表A数据添加到表B中方法:

'****************************************

Dim strSQL As String
'追加查询SQL语句
strSQL = "INSERT INTO B ( B1, B2 ) SELECT A1, A2 FROM A;"
'通过Execute方法运行追加查询
CurrentDb().Execute strSQL

'***************************************

'清除表A中所有数据方法:

'***************************************

Dim strSQL As String
'删除查询SQL语句,用以清除A表中数据
strSQL = "DELETE * FROM A;"
'通过Execute方法运行追加查询
CurrentDb().Execute strSQL

你自己做一下测试,仅供参考

stone 发表于：2010-06-04 21:31:54

这样会不会把B里原有的记录覆盖掉呢

如果要把A里的记录复制到B表的最后面

应该添点什么代码？求江大侠解答。

stone 发表于：2010-06-04 21:35:46

对不起，没仔细看，原来是insert，这样就不会覆盖了

我想的是把记录复制到B表，字段很多的话，上面打字段的话会不会很麻烦

我是新手，可能提了很低级的问题，见谅

江羽发表于：2010-06-04 21:59:12

其实你不用打字段,建一个追加查询就可以了,这个在ACCESS中有向导来完成,你不必辛苦去打字段.

江羽发表于：2010-06-04 22:00:45

CurrentDb().Execute方法可以运行Select语句,也可以是一个追加查询(即追加查询名)

stone 发表于：2010-06-05 05:45:17

感谢江哥的解答，小弟又学了一招

总记录：6篇页次：1/1 9 1 :

Access交流中心