ACCESS要怎么样才能把查询表里的结果另存为一个数据表？

[kendyhj009]

如题。
就是在ACCESS里建立了一个查询，想把查询结果存到一个新表里。
？查询要经常执行。
能否写几条语句就可以

[ACMAIN_CHM]

1条语句就可以

select * into newTable from oldTable

[kendyhj009]

但是每次都提示创建新表，或删除上次创建都表啊，我是想写段VBA程序实现自动化，每次按下按钮就自动存到表，可以写出来不？

[kendyhj009]

反正就是按下按钮后，就执行我建好都名为QUERY的查询，然后就存到表里了。

[ACMAIN_CHM]

Public Sub t()
    On Error Resume Next
    CurrentProject.Connection.Execute "drop table kk"
    CurrentProject.Connection.Execute "SELECT * into kk FROM Sheet"
End Sub

[hustfang2003]

原来还可以直接用currentproject.connnection.execute，我以前都是建ado的command来执行sql语句的，唉，看来我知道的东西太少了。

[hustfang2003]

我想，如果要把drop语句写完整，是不是应该先判断是否存在kk表？这种东西，我使用了很多。都是这样写的：
dim vnt as variant
with current data
for each vnt in .alltables
if vnt.name="kk"
currentproject.connnection.execute "drop table kk"
endif
next vnt
end with
是不是太麻烦了？

[ewang11]

这样也可以,多写几句代码