Access窗體查詢制作步驟第二課，Access創建模糊查詢窗體第二課--Access如何將查詢結果導出到Access新表的示例，Access如何將查詢結果導出到Excel表的示例，Access查詢后導出結果

時　間:2022-08-16 13:36:39
作　者:麥田   ID：11  城市：上海  QQ：3002789054
摘　要:Access窗體查詢制作步驟第二課，Access創建模糊查詢窗體第二課--Access如何將查詢結果導出到Access新表的示例，Access如何將查詢結果導出到Excel表的示例，Access查詢后導出結果。
正　文:

一、學友問題描述：
秋明山(190428731) 2022-08-15 09:02:50
向各位請教，我想將每次查詢的內容自動記錄到一張表里，應該怎樣做才可以實現呢？

二、解決方法：
之前我們學習過教程第一課：Access窗體查詢制作步驟，Access創建模糊查詢窗體，Access如何通過查詢為窗體添加功能，ACCESS實例教程，自學access數據庫經典教程(access教程入門基礎)；Access如何創建窗體查詢？創建窗體查詢的詳細步驟來了【Access軟件網】
http://www.judokodokancarbonia.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.judokodokancarbonia.com/article-show.asp?id=20429

Access軟件網QQ交流群 (群號:150401543) 　　　　　　Access源碼網店