一、学友问题描述：
秋明山(190428731) 2022-08-15 09:02:50
向各位请教，我想将每次查询的内容自动记录到一张表里，应该怎样做才可以实现呢？
二、解决方法：
之前我们学习过教程第一课：Access窗体查询制作步骤，Access创建模糊查询窗体，Access如何通过查询为窗体添加功能，ACCESS实例教程，自学access数据库经典教程(access教程入门基础)；Access如何创建窗体查询？创建窗体查询的详细步骤来了【Access软件网】
http://www.accessoft.com/article-show.asp?id=16527
得到了广大Access初学者朋友的青睐，访问量近20万阅读数，看来大家还是喜欢这种基础教程，今天分享一下第二课，即在第一课基础上制作了Access查询后导出结果，我们称为第二课：
Access如何将查询结果导出到Access新表的示例，Access如何将查询结果导出到Excel表的示例。
先看一下制作完成的效果，如下图：
下面讲解制作步骤，如下：
第一步，大家在接着上面第一课学会的基础上，只需要在查询窗体的设计视图，再增加两个按钮，一个命名为“
导出到Excel”，如下图：
然后按钮单击事件过程，如下图，
写如下导出代码：
On Error Resume Next
Me.sfrDetail.SetFocus
If Me.sfrDetail.Form.CurrentRecord > 0 Then
ExportToExcel "查询结果"
End If
保存一下即可实现查询后的结果，导出到Excel文件。
第二步，再增加一个命令按钮，我们命名为“
导出到Access新表”，如下图：
然后按钮单击事件过程，如下图，
写如下导出代码：
Dim strSQL As String
If ObjectIsExists(acTable, "TEMP_tbl查询结果") Then
DoCmd.DeleteObject acTable, "TEMP_tbl查询结果"
End If
strSQL = "select * into TEMP_tbl查询结果 from 查询窗口"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
MsgBox "已生成临时表【TEMP_tbl查询结果】"
DoCmd.OpenTable "TEMP_tbl查询结果"
保存一下即可实现查询后的结果，导出到一个新的Access表。
以上就是完整的制作步骤，大家按教程提示操作，就可以学会，如果还没有学会，或者制作到最后功能还没有实现的Access朋友，可以下载一下我制作好的完整示例，作为参考对比一下。
附 件:
点击下载此样例程序附件
导出自定义代码在模块里面，请下载附件将模块导入到你新建的数据库:
演 示:
需要对查询结果进行打印预览的学习一下第三课：
Access窗体查询制作步骤第三课：Access如何将查询结果打印报表的教程
http://www.accessoft.com/article-show.asp?id=20429
